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Preface 


The TSC Debug Package is a very powerful tool for assembler 
language program debugging. It offers the power and flexibility 
of an expensive hardware emulator at only a very smaI I fraction 
of the cost! Used with care, this package will save many hours 
when debugging programs. 

It is recommended that the entire user's manual be read 
before attempting any serious debugging. The 'Tutorial' is 
written to provide a fairly complete introduction to the Debug 
Package, while the 'Command Descriptions' is a very complete and 
concise description of alI Debug features and commands. Consult 
'Getting Debug Running' for details on how to get the program 
started. Working through the example given in 'Example Use' is a 
good place to start once the manual has been read. 
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Debug Tutorial 


I. Introduction 

Program debugging is usually thought of as work. It should 
be thought of as an art. There is no reason for a lot of crying 
while attempting to make a new program do what was intended. 
This is only true, however, if the program was designed with some 
forethought and planning. Computer programs are executed in a 
logical, step by step, fashion. This is the approach both 
program writing AND debugging should take. So many times a 
programmer will spend hundreds of hours, carefully planning the 
flow of a new program but spend only a few minutes thought on a 
debugging approach. The debugging is usually attempted in some 
hap hazard, keep your fingers crossed, method. Sometimes this 
works and sometimes it does not, but in most cases, valuable time 
is wasted. 

By using a debugging tool and by incorporating some logical 
thinking, program debugging can become very straight forward and 
sometimes even fun! The purpose of this tutorial is to introduce 
the reader to the capabilities of the TSC Debug Package and offer 
some suggestions on how to tackle those program bugs. The 
following sections give a more detailed description of its 
capabilities. 


II. The Simulated Computer 

The TSC Debug Package is more than the name may imply. It 
is in fact a complete 6800 simulator. A computer simulator is a 
program which when run, behaves exactly like the computer it is 
simulating. Given 6800 machine language, the simulator will 
perform the instructions exactly like the 6800 CPU. There are 
two major differences, one being an advantage, the second being a 
disadvantage. First for the good news. The simulator has the 
ability to keep close account of all internal actions. For 
example, any illegal opcodes are quickly detected and reported. 
Such things as stack overflow and underflow are also easily 
checked. Each byte of memory may have an assigned protection type 
such as write protection. General conditions may also be spotted 
such as the occurence of a transfer of address type instruction. 
Overall, the simulator can keep close watch over the executing 
program and detect any peculiarities. 

This all sounds great, but as stated before, there is a 
disadvantage in the simulator, namely speed. The simulated 
program runs somewhere between 100 and 300 times slower than a 
real 6800 CPU. This means that real time dependent code may not 
be simulated. This is not a serious drawback since less than one 
percent of all computer programs are real time dependent. 
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The 6800 simulator incorporated in the TSC Debug Package 
supports all of the 6800 instructions. All of the user registers 
are also provided (A, B, CC, X, PC, and SP). To examine the 
contents of these registers it is only necessary to type R 
followed by a carriage return. This is assuming the Debug 
Package is ready to work indicated by the two asterisk prompt 
('**'). Typing the R command will cause the debugger to display a 
line containing all register names foI I owed by their contents in 
hex. At the end of the line is the instruction currently being 
pointed to by the program counter (P register) and it is 
displayed in disassembled form (standard Motorola mnemonics). A 
nonstandard register is also displayed, the N register. This 
register's value represents the subroutine nest depth. Each time 
a subroutine is called, its value will be incremented, and each 
time a return from subroutine is executed, its value will be 
decremented. The contents of any of the displayed registers may 
also be set by using the SET command. For example: 

**SET,P=100,A=F3 

will set the value of the PC to hex 100 and the value of the A 
register to hex F3. There are several other registers and states 
of the simulated machine. These can be viewed by typing MACH. 
The items displayed with this command are primarily the states of 
various traps which will be described a little later. 

There are several other internal machine variables which may 
be easily examined. One of these is the contents of the stack. 
Typing STACK wi I I display the top several bytes of the stack. If 
more stack contents are desired, simply type the number of items 
desired after the command. 

**STACK, 1 5 


This will display the top 15 bytes of the stack, 
comma was used as a separator in the command line, 
used in all examples in this manual 
acceptable and sometimes easier to type, 
references the stack is the RET command, 
two bytes of the stack as an address and 
address if currently in a subroutine. 


Note that a 
It will be 
but a space is also 
Another command which 
This will print the top 
represents the return 


The simulated machine always keeps track of where it has 
been and how much time was spent there. The machine 'states 
counter' is used to tally the total number of machine states or 
cycles used so far by the executing program. Each 6800 
instruction requires a certain number of machine cycles to 
execute. If the CPU is running at 1 megahertz, each machine state 
is equivalent to 1 microsecond. The machine states counter is 
capable of counting up to 99,999,999 cycles, or roughly 99.99 
seconds of actual program execution time. This counter is useful 
for determining the exact execution time of a routine. 
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The TRAIL command will print the address of the last 
transfer type instruction. A transfer of address instruction is 
one which causes the CPU to change its normal course of 
instruction execution. Normally instructions are executed in a 
sequential fashion, stepping through memory sequentially. A JMP 
instruction for example will cause the next instruction to be 
fetched from the address specified in the instruction, rather 
than from the next sequential address. In effect, we have a 
transfer of address. The TRAIL command will print the location 
of the last transfer type instruction that was executed. This is 
very handy in determining what caused a program to end up in 
memory where it did. 

The simulated machine is capable of running in two different 
modes. These are referenced as mode 1 and mode 0. In mode 1 
(the default mode), all checking and bookkeeping is performed. 
In mode 0, several of the features are turned off in order to 
improve the speed performance of the simulator. It is 
recommended that mode 1 always be used since it does the most 
work for you and will catch more errors. 


III. Whats in Memory? 

Now that the simulated CPU has been described we need to 
look at memory. The TSC Debug Package offers several ways of 
examining the contents of memory locations, as well as altering 
them. The simplest form is the MEM command, or M for short. 
Typing M followed by an address will display that byte of memory. 
For example: 

**M,100 

100 CE 

shows that memory location hex 100 contains a hex CE. At this 
time several choices are at hand. If all you wanted to do was 
check the contents of location 100, simply type a carriage return 
and the debug prompt will be issued. If you want to change the 
contents of 100, simply type the new value followed by a 'space'. 
The 'space' tells the debugger that the new value is ready to be 
entered. It is only necessary to type the significant digits of 
the new value to be entered. For example, if 6 was to be 
entered, simply type 6 to I lowed by a space. It should be noted 
that only the last two digits will be used so if 'C23A' is typed, 
'3A' will get entered. If zero is to be entered, simply type a 
space. After the new value is entered, the next sequential memory 
location will be displayed. Any time a non hex chcracter is 
typed (with the exception of space), one of two actions will 
occur. First if the character is a 'line feed', the previous 
location will be displayed, with the current location left 
unchanged. If the character is any other non hex character, the 
next location will be displayed leaving the current unchanged. 
An example will clarify the M command's use. 
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**M,100 

0100 CE . 

0101 3A 46 

0102 4D 

Location $100 was left unaltered, while location $101 was changed 
from a $3A to $46. Finally this mode was exitted on the next 
line by typing a return. 

Many times while program debugging it is desirable to 

examine a large block of memory. The DUMP command is used for 
exactly that. This command will display 16 lines of data, 16 
bytes per line, for a specified memory region. Each byte is 
dispIayed as a hex value as well as its ASCII equivalent. All 

control characters (those bytes having a value less than 20 hex) 
are displayed as an underscore character '_' . To display 256 
bytes starting at memory location $1000, the following command 
shouId be typed: 

**DUMP,1000 

At the end of the dumped block the program will stop and wait for 

a character to be typed. Typing an 1 F 1 will move forward in 

memory, printing the next sequential 256 bytes. In this example, 
typing an F would display the block starting at $1100. It is 
also possible to display the previous block of 256 bytes by 
typing a 1 B ? , for backward movement. A carriage return will 
cause the debugger to regain control and the prompt will be 
reissued. Any other characters will be ignored. It should be 

noted that any time the debugger is displaying data on the 

terminal, the display may be stopped at the end of the line by 
typing an 'escape' character. Once stopped, another 'escape' 
will resume the display, while a 'return' will give control back 
to the debugger. This is a very convenient feature. 

Another useful memory interogation command is the FIND 
command which is used to find a specific string of bytes or 

characters in a selected block of memory. As an example, suppose 

there was a jump to subroutine instruction somewhere in your 
program. It is known that the code is BD 34 00, and that it is 
somewhere between locations $100 and $300. The following command 
line will find it. 

**FIND,100,300,BD,34,00 

This tells the debugger to look between memory locations hex 100 
and 300 for the hex string 'BD3400'. All memory locations which 
contain this string will be displayed on the terminal. The 
length of the string searched is limited by the maximum command 
line length which is 80 characters. It is also possible to 
search for an ASCII string. Suppose it was necessary to find the 
character string 'ERROR 3' in memory. It should be somewhere 
between locations $200 and $1000. This can be done in the 
foI lowing way: 
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**FIND,200,1000,"ERROR 3 

The double quote character tells the find command that the 
following characters are to be considered ASCII characters 
instead of hex. Otherwise the command works exactly as described 
above. 

So far the memory commands described have been oriented 
toward hex and ASCII values. Many times during debugging it is 
necessary to decode these hex values into assembler language 
instructions. The DIS command does exactly that! This command is 
a complete program disassembler which allows the user to examine 
the contents of memory in a higher level form. Each memory 
location in a specified block will be printed as address, 
followed by the opcode mnemonic and addressing mode. Standard 
Motorola mnemonics and addressing mode designators are used. To 
use the disassembler, simply type the command name (DIS), 
followed by two address boundaries. For example, to disassemble 
the memory range between locations 100 and 108, type the 
following. 

**DIS,100,108 
0100 LDAA $32 
0102 STAA $0240 
0105 BNE $0121 
0107 DECA 
0108 STAA 2,X 

Remember that at any time the display is being produced, the 
•escape' key may be typed to temporariIy halt the action. The 
DIS command is a very useful and powerful command. 

Now that we can examine memory in a higher level form it 
would be nice if we could alter it in the same way, that is, 
using assembler language mnemonics. The ASM command does exactly 
that! It acts as a line at a time assembler, allowing standard 
mnemonics and addressing modes to be typed, while the 
corresponding hex values are automatically inserted into memory. 
To start this process simply type the command name followed by 
the address where the code should be placed. The debugger will 
respond by printing the address of the location specified 
followed by a space. At this time, simply type the desired 
instructions following each with a carriage return. The next 
available address will then be printed and assembly can continue. 
Typing a carriage return in response to the address prompt will 
exit this mode of operation. To show the workings of this 
command, some code will be assembled at location $200. 

**ASM,200 
0200 LDAA 10 
0202 LDAB $10 
0204 PSHA 
0205 LDAA 'M 
0207 STAA 0,X 
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0209 JMP $3000 

020C 

** 

No+e that numeric values are interpreted as decimal unless 
preceded by a dollar sign ($) to designate hex. It is also 
possible to enter an ASCII constant by preceding it with a single 
quote ('). No spaces are allowed between the register specifiers 
•A' or »B * and the instruction (e.g. LDAA is correct, LDA A is 
not). The ASM command is a great time saver! 


IV. Simulating the Program 

Program simulation is very simple. If the test program 
starts at $100, simply type START,100 to start the simulation 
process. The program will run exactly as the CPU would run it, 
just slower. The START command clears several of the machine 
conditions such as the states counter. To start a program where 
it left off, the GO command can be used. This will cause the 
program to start execution at the location pointed to by the 
program counter (P register). No states will be cleared. 

A very valuable feature of the simulator is the 'trace 
mode'. When trace is enabled, a register dump (exactly like that 
produced by the R command) will be displayed after each 
instruction is executed. The simulation may be temporarily 
halted by typing an 'escape' character anytime during the tracing 
operation. The simulation may also be stopped by typing a 
'control C'. This will cause the debug prompt to be reissued. 
To enable the trace mode use the TRACE command. 

**TRACE=10 

This line will cause the debugger to trace all instructions which 
are in a subroutine nest level of 9 or lower. The number in the 
command line specifies the nest level where tracing should be 
disabled. This allows only the outermost program structure to be 
traced if desired, while the deeper subroutines will be simulated 
without the tracing. To disable the trace, use a count of zero 
(e.g. TRACE=0). 

There are several other methods of starting program 
simulation. One is the SIM command. This command will allow the 
simulation of a specified number of instructions. Tracing is 
disabled during the execution of this command. 

**SIM,100 

This line will cause 100 instructions to be simulated starting at 
the address pointed to by the program counter. The TSIM command 
is identical to the SIM command except trace is automatically set 
to 256 during the execution of the command. 
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It is often desirable to step through the execution of a 
program, one instruction at a time. The STEP command will start 
simulation at the instruction pointed to by the program counter, 
execute a specified number of instructions, print a register 
dump, and then wait for input. At this time, a space will repeat 
the process, while a return will return control back to the 
debugger. The usual method of operation is 'single' step which 
will execute one instruction, then dump the registers. This mode 
can be entered by: 

**STEP 


Multiple instructions can be executed between register dumps by 
specifying a count. For example; 

**STEP,25 

wiI I cause 25 instructions to be simulated at a time. The step 
mode is a very powerful method for closely following the flow of 
a program. 

During program execution, the simulator keeps track of the 
last 256 instructions executed. If a program ever goes off on 
its own, ending up in memory where it should not, the PAST 
command can be used to examine the instructions executed to get 
it there. Typing the command, 

**PAST,20 


will display the addresses and mnemonic instructions of the last 
20 opcodes executed. This feature alone will find a good 
percentage of program bugs. 

V. Breakpointing the Program 

So far, methods have been described which allow all or a 
certain number of instructions to be simulated. Most of the 
time, the number of instructions to a certain point in the 
program is not known. It would be helpful if a break in the 
program simulation could be specified to take place at a 
particular point in the program, or in other words, breakpoints. 
A breakpoint is a mechanism for stopping the execution at a 
specified address in the program. As an example, to set a 
breakpoint at location $23A, use the following command. 


**B@23A 

As the program executes, any time location $23A is reached, 
simulation will stop and the registers will be dumped to the 
terminal. After the program has stopped, typing a 'G' will 
restart execution, starting at address $23A (the breakpoint wiI I 
be ternporarily ignored). It should be noted that the method used 
to create the breakpoint does not alter the contents of memory in 
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any way. This means that after setting a breakpoint, the 
contents of memory at the breakpoint location will be unchanged. 
This al lows breakpoints to be set in ROM as we I I as RAM! 

In the above example, the breakpoint caused two actions to 
take place. One was printing the registers, the other was 
stopping program simulation. These actions are the ones 
performed by most debugging systems. The TSC Debug Package 
al lows six other actions to be performed upon the execution of a 
breakpoint. A list of all 8 possible actions follow: 


1. R...Print register contents 

2. Z...Zero the states counter 

3. T...Enable the trace function 

4. U...Disable trace (untrace) 

5. H...Histogram counter 

6. M...Print a message 

7. J...Jump to specified address 

8. S...Stop simulation 

The first breakpoint example shown defaulted to R and S type 
actions since none were specified. The Z action zeroes the 
machine states counter. This is useful for program timing. For 
an example, the states counter may be zeroed upon entry to a 
subroutine and a stop type breakpoint set at the exit point of 
the routine. By using the STATES command after the program 
stops, the exact number of executed machine states for that 
routine will be displayed. 

The T and U actions allow the trace mode to be enabled and 
disabled at selected points in a program. When enabled, trace 
will be set to level 255. Many times, tracing is only desired 
during one routine or selected portion of the program. These 
actions will permit this sort of program tracing. A few examples 
will demonstrate action type breakpoints. 

**B,RZ@1000 

**B,T@A16 

The first command will set a breakpoint at location hex 1000 
which when executed will print the registers and zero the states 
counter. The program will then continue since a stop (S) action 
was not specified. The second example will cause trace to be 
turned on at location hex A16. 

Another action is the histogram (H). A histogram counter 
counts the number of times the instruction at that address has 
been executed. This is useful for determining 'hot spots' or 
sections of programs which are executed very frequently. By 
setting a histogram breakpoint at the first instruction of each 
subroutine in a program, it is possible to find out exactly how 
many times each routine was cal led. As an example, suppose there 
were three subroutines in a program, and they were located at 
$100, $123, and $1A0. To set histogram counters at these 
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locations, type the following commands: 

**B,H@100 
**B,H@123 
**B,H@1 AO 

After simulating the program, typing HIST will display the totals 
of the counters at each address. This command is used to examine 
the histogram counters at any time. The CLH command is used to 
clear the histogram counters. 

**CLH,100 
**CLH 

The first command will clear (set to zero) the value of the 
histogram counter at location 100. The second command will zero 
all of the counters. The histogram commands allow a very 
complete profiling of a program, letting the user 'fine tune' it 
for maximum speed. 

The remaining two action codes are special purpose. One 
permits a selected message to be printed as the action, the 
second allows transfer of control to a specified address (like a 
JMP instruction). 

**B,M@325,SUB 1 
**B,J@27C,1000 

The first line will print the message "SUB 1" each time the 
instruction at $325 is executed. The second command will cause 
the instruction at address hex 1000 to be the next instruction 
executed. The instruction at 27C will not be executed! 

Any combination of action codes may be listed for a 
breakpoint. They are executed in the order they appear in the 
above list. For example, 

**B,TRZ@300 

will cause the registers to be displayed (R), the states counter 
to be zeroed (Z), and trace to be enabled (T), in that order. 
This ordering may be important, for in the actions 'RSJ', the 
stop (S) will never get executed since the J transfers control to 
another address. 


VI. Advanced Breakpoints 

Programs containing loops or recursion are often difficult 
to breakpoint since one particular section of code may be called 
thousands, or even millions of times. As an example, suppose 
there is a loop in the program being debugged, and it is 
necessary to examine the contents of the X register after the 
600th time through the loop. One way is to set a breakpoint at 
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the desired instruction and start the program simulating. Every 
time the program halts at the breakpoint, type G to restart it. 
Repeat this process 600 times and you can examine X. You are 
probably thinking that this would take forever and you are right! 
The TSC Debug Package allows a pass counter to be associated with 
a breakpoint. This count determines how many times the 
instruction at the address of the breakpoint should be executed 
before the actions specified should be performed. In the above 
example, assuming the instruction to be breakpointed is at 
address 300, the following will do exactly what we want. 

**B@300,>600 
or 

**B,SR@300,>600 

Both commands are identical since the first defaults to SR 
actions. The '>' is the pass count modifier and should be read as 
'after'. The result of this command is to stop and print the 
registers on the instruction at location 300, after 600 times 
through it. Once the count reaches 600 (or whatever value was 
set), the breakpoint actions will always occur. A second similar 
type of pass count uses a '<' for a modifier and should be read 
as 'before'. This is used to create a temporary breakpoint. 

**B,R@300,<100 

This command will set up a breakpoint at 300 which will print the 
registers for the first 100 times through. After the 100th time, 
the breakpoint will be cleared and no longer function. In 
summary, the pass count value associated with a breakpoint is 
decremented each time the instruction at the specified address is 
executed. If the modifier is a *>', no actions will be performed 
until 'after' the count has reached zero. With the '<• mofifier, 
actions are only performed 'before' the count reaches zero, and 
once it is zero, the breakpoint is cleared. 

In the above example it was decided that the program should 
be stopped after 600 times through the loop. While debugging 
loops, it is not always possible to determine an exact number of 
times to execute the loop before it should be stopped. Often it 
is desirable to stop on a certain condition, such as the contents 
of a register or the state of a particular memory location. 
Conditional expressions are allowed in breakpoint definitions and 
yield a great deal of power. The conditional can be determined 
on the contents of a selected register (A, B, C, X, P, S, or N) 
being equal (or not equal) to a specified value. A particular 
memory location may also be tested for zero or not zero. 
Following are a few examples. 

**B@1000,IF A=3F 

**B,R@320,IF B!=10 

**B,T@6A7,IF $20=0 

The 'IF' statement designates the conditional part of the 
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breakpoint definition. The first example will stop and print the 
registers at location hex 1000 but only when the value in the A 
accumulator is hex 3F. The second example will print the 
registers at 320 only if the contents of the B register is not 
hex 10 ('!=' is to be read as 'not equals'). The last example 
will enable the trace mode at location 6A7 if the contents of 
memory location hex 20 is zero. The dollar sign '$' is used to 
designate a memory reference and not a hex value (the value is 
always interpreted as hex). The value on the right of the equals 
sign must always be zero when a memory reference has been 
designated. 

The above breakpoint features may be combined in a variety 
of ways to produce an almost endless variety of breakpoints. As 
an example: 


**B,TZ@1000,>100,IF X=100 

will cause trace to be enabled and the states counter to be 
zeroed, after executing the instruction at hex 1000,- 100 times, 

but then only if the value of the index register is $100. It 
should be noted that the H, M, and J action codes will not allow 
a conditional expression as part of the breakpoint definition, 
and J will not support a pass counter. 

Once breakpoints are set it is possible to examine the 
loaction of them as we I I as remove them. To check the locations 
of breakpoints, use the BP command. 

**BP 
**BP,100 
**BP,100-500 

The first line will print the location of all breakpoints, each 
one followed by a list of its action codes. No pass counts or 
conditionals are displayed. The second example will display the 
action codes of the breakpoint at location hex 100 (if one 
exists). The last command line will display all breakpoints 
between location 100 and 500, inclusive. The CLB command is 
similar in syntax but is used to clear or remove a breakpoint. 
CLB by itself will clear all breakpoints. If it is followed by 
an address, the breakpoint at that address will be removed. If 
two addresses are specified, then all breakpoints in their range 
will be cI eared. 

While debugging very large programs, it may become quite 
time consuming to simulate the program up to a desired address. 
For example, a program which requires a minute to execute in real 
time may require over an hour if simulated. To get around this 
problem, it is possible to set a 'real time' breakpoint. This is 
entirely different from the previously described breakpoints in 
that it does modify the contents of memory (by substituting a JMP 
instruction) and no pass counting or conditionals are permitted. 
The only action performed is to stop and print the registers. An 
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example of use follows: 

**RT,5A00 

This command wi I I cause the CPU to start executing the program 
(NOT the simulator) at the current address of the program 
counter. When the program reaches the specified address (5A00), 
the program will stop, print the registers, and restore the 
contents of RAM at that location (remove the breakpoint). Since 
the program is being executed in real time and not being 
simulated, no other breakpoints, illegal condition checking, 
states counting, or record keeping is performed. This type of 
execution is not recommended for this reason and should only be 
used where the simulation time gets tremendously long. 


VII. Protect Your Memory 

Perhaps the most aggravating aspect of program debugging is 
having your program destroy itself in memory. Too- many times, 
programs 'run away', writing garbage in memory, usually exactly 
where it is not wanted. In these instances, it would be nice to 
be able to 'write protect' memory, or at least certain portions 
of it. The TSC Debug Package will allow exactly that! In fact, 
any section of memory, right down to a single byte, may be write, 
execute, memory, or simulate protected! Write protecting memory 
will prohibit any stores or writes into it. Execute protection 
prohibits opcodes from being fetched from memory. In other 
words, the program counter (PC) will not be permitted to point to 
a location of memory which is execute protected. Memory protect 
is a brute force type of protection. By memory protecting a 
region, you are in effect saying that no memory exists in this 
region and that nothing should be allowed to reference it in any 
way. Any memory referenced in conflict with its protection will 
cause the simulation to stop and an appropriate message will be 
printed. Finally, simulate protection is slightly different from 
the rest. It is used to tel I the simulator to execute any code 
in a simulate protected region in real time, or in other words, 
not simulated. A restriction requires the code in a simulate 
protected region to be called as a subroutine (JSR or BSR) from 
the non-simulate protected code. This is very convenient for I/O 
operations. All I/O routines can be simulate protected (such as 
TTY and disk routines) a I lowing them to be executed by the CPU 
(real time) and not the simulator. It is often convenient to 
simulate protect the entire region of memory containing the 
monitor and/or operating system since this code is known 
functional. Keep in mind that code in simulate protected memory 
may only be accessed via a subroutine call. 

The command used to set protection is PROT. A few examples 
will demonstrate its use. 
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**PROT,100-3FF,X 
**PR0T,2E0,W 

**PROT,500-6FF,M, 1200-1FFF,W 

The first example will execute (X) protect the memory between 
locations $100 and $3FF. The second line write protects (W) 
location $2E0. The last example will memory protect (M) 
locations $500 through $6FF and write protect $1200 through 
$1FFF. There are some general rules to foI low when protecting 

memory. Memory protection should be used on al I sections of 

memory not referenced or used by the program being debugged, 
especially the area of memory containing the Debug Package. This 
will keep a runaway program from clobbering something it should 
not. Sections of memory which are used for register storage or 
flags should be execute protected. Memory containing the actual 
program code should be write protected for obvious reasons. 
Finally, as mentioned above, the memory locations where the 
monitor and/or operating system reside should be simulate 
protected. 

Once the protection has been defined it may be checked by 

using the BOUNDS command. This command will allow the 

examination of the boundaries of each type of protection. Either 
all types or selected ones may be displayed. 

**B0UNDS 
**B0UNDS,W,M 

The first example will display all types while the second will 
show only the defined boundaries for write and memory protection. 
Memory protection can be cleared in a similar fashion. 

**CLP 
**CLP,X,W 

The first command wi I I clear al I protection while the second wiI I 
only clear the defined execute and write protected regions. 


VIII. Trapping Those Bugs 

The previously described breakpointing feature allows 
programs to be stopped at specific locations and on specific 
conditions. It is often desirable to 'trap’ a program on some 
general condition such as every time a transfer of address 
instruction is encountered. The memory protection described 
above is a form of trap in that the program will stop if a 
protection violation is detected (e.g. writing into write 
protected memory). There is address information associated with 
this protection which makes it different from the general traps 
available in the Debug Package. The general traps cause programs 
to stop on a general condition which is not address dependent. 
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One of these traps is the illegal opcode trap which is 
always enabled. Any time an illegal opcode is encountered during 
the course of program simulation, the program will stop and 
report its occurrence. A second, always enabled trap will stop 
the program if an RTS instruction is encountered and the current 
nest level is 0. 


There are several user controlled traps which may be enabled 
and disabled at will. The transfer trap is enabled with the XFR 
command. When enabled, the program will stop each time a 
transfer of address is encountered. These instructions are JMP, 
BRA, and all conditional branches such as BCC. The subroutine 
calls and returns are not trapped out. 

**XFR=0N 

**XFR=0FF 

These two commands will enable and disable this trap 
respectively. Once a program has stopped because of a transfer 
trap, typing G wi I I restart it, allowing the current transfer to 
be executed. This is very useful for quickly following the major 
flow of a program. Another one of the general traps allows 
halting the program if the subroutine nest counts reaches a 
spec i f i ed I eve I. 

**NEST=20 

This will cause a trap if the nest level ever reaches 20. To 
disable the nest trap, use NEST=0. 

The last general trap to be discussed is the I TRAP. This 
command allows activation of the interrupt trap and will cause 
the simulating program to stop if an interrupt type instruction 
is encountered (SWI, RTI, and WAI). Since these instructions are 
not used in the majority of programs it is a good idea to use 
this feature. An example will demonstrate its use. 

**ITRAP=0N 

**ITRAP=0FF 


These two commands will enable and disable the interrupt trap 
respective!y. 

IX. And There is Still More! 

There are still many undescribed features of the TSC Debug 
Package. One of these is the handy little CALC command which acts 
as a hex calculator. Typing CALC followed by a return will cause 
the debugger to output an equals sign (=) for a prompt. At this 
time hex and decimal addition and subtraction may be performed. 
To add two numbers simply type them in separated by a plus sign. 
If the number is hex precede it with a dollar sign, otherwise the 
debugger will interpret it as decimal. Use a minus sign for 
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subtraction. It is also possible to do base conversions. This 
can be accomplished by entering just one number after the prompt 
(hex or decimal) followed by a return. All answers are displayed 
in both hex and decimal. An example follows. 

**CALC 
=$1A+10 

$0024 36 

=256 

$0100 256 


After entering the calculator mode, the numbers hex 1A and 
decimal 10 were added to give the result hex 24 or decimal 36. 
The second entry is a base conversion of the decimal number 256. 
The result shows its hex equivalent is $100. The calculator mode 
can be left by typing a return in response to the prompt. 

There are still many other features in the Debug Package, 
such as interrupt simulation, which have not been described. It 
is not the intention of this tutorial to teach alI there is to 
know about the debugger, but to teach enough to make the user 
feel comfortable with the majority of its features. Once the 
material in this section is thoroughly understood, the following 
detailed command description should be studied in depth. 

Now that the basic mechanics of the Debug Package are 
understood they should be put to good use. Keep in mind that a 
logical and planned approach should be taken when debugging a 
program. Use the available tools such as memory protection and 
breakpoints. When first starting the debug process on a new 
program, start at the beginning, working your way through the 
flow of the program. Let the program be the guide. If you pay 
close attention, it will definitely point out the bugs. Above 
all, have patience. Great bugs are not killed overnight! 
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Command Descriptions 


I. Introduction 

This section of the manual contains a detailed description 
of each Debug command. Each command is shown with a few 
examples. The syntax definitions show optional items in square 
brackets ([]). All command parameters are shown separated by 
commas for clarity in the syntax definitions and examples. Any 
place a comma is shown, a space may also be used. The following 
definitions apply throughout this document: 


I tern 


Meaninq 


<address> 
<vaIue> 
<count> 


1-4 digit hex vaIue 
decimal number (max = 255) 
decimal number (max = 65,000) 


The Debug Package is ready to accept a command anytime the 
i**i prompt is present on the line. When typing commands, a 
•control H' will cause a backspace, and delete the last character 
typed. A 'control X* will cause the entire line to be deleted 
and a new prompt of '??' will be output to show the deletion of 
the line. Any time text is being output to the terminal, display 
may be stopped at the end of a line by typing an 'escape' 
character. Once stopped, another 'escape' wiI I restart the output 
while a 'return' will give control back to the debugger and the 
i**» prompt will be output. 


II. General System Control 

The general system control commands al low a variety of general 
actions to be performed. Register examination and changing is 
supported by use of the REG and SET commands. The status of 
several machine control registers can be obtained through the 
MACH command. Commands to view the stack contents, set 
simulation speed, reset machine parameters, enter a calculator 
mode, examine the 'machine states counter', and exit the debugger 
are all described in this section. 

ClALC] 

PURPOSE: 

The calculator mode will be entered and a '=' prompt will 
be printed. The calculator will allow addition or 
subtraction of two numbers. The numbers may be hex 
(designated by a '$' prefix) or decimal. If two numbers 
are typed, they must be separated by a '-' or '+' and the 
appropriate result will be displayed. The answer is 
shown in both hex and decimal. It is possible to enter 
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only one number (hex or decimal) followed by a return. 
The answer will be this number printed in both hex and 
decimal, thus allowing base conversions. After each 
calculation, a new '=' prompt will be output. To exit 
this mode, type a 'return* as a response to the prompt. 

EXAMPLES: 

CALC 
=$A+10 
$14 20 

DEL(AY]=<vaIue> 

PURPOSE: 

This will set the simulation delay (the amount of delay 
after each instruction is executed) to an amount 
proportional to <value>. The higher the number (max = 
255) the longer the delay. A delay of zero will result 
in the delay being turned off. 

EXAMPLES: 

DELAY=100 Set delay to 100 

DELAY=0 Disable the delay 

DEPfTHJ 


Enter calculator mode 
Add hex A and 10 
The result is printed 


PURPOSE: 

The depth command will print the deepest value of the 
stack pointer (the lowest memory address at which the 
stack was extended during program simulation). To 
initialize this pointer, it is necessary to set the stack 
pointer using the SET command. The depth value will be 
set to the same value as the stack pointer. This commend 
is useful for determining the amount of stack space 
required by a program. 


EXAMPLES: 

DEPTH Print the deepest stack location 

EtXITI 

PURPOSE: 

Exit the debug program. Use this command when finished 
with the Debug Package. 


EXAMPLES: 

EXIT 


Exit the debugger 
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FLIAG)[=<address>J 
PURPOSE: 

The Flag register is a 2 byte word at the specified 
memory location which will be displayed on a REG command 
or during tracing, as the * F * register. The memory 
location for the flag will be set to the address 
specified. If no address is given, the flag register will 
be disabled. This is useful for tracking flags in memory 
during program tracing. See the REG command. 

EXAMPLES: 

FLAG=1A85 Set flag register to $1A85 

FLAG Disable flag register printout 

IND=ON or OFF 
PURPOSE: 

Used to enable or disable the indirection printout in a 
register dump (see REG). If IND is ON, the register dump 
will show a register called * I * which is the value of the 
memory location pointed to by the index (X) register. If 
this feature is off, the I register will not be 
displayed . 

EXAMPLES: 

IND=ON 

IND=OFF 

MA1CH] 

PURPOSE: 

The MACH command wiI I print the current status of the 
simulated machine. Values displayed are for mode (M), 
trace (T), instruction count trap (I), nest trap (N), 
stop address (S), interrupt trap (IT), transfer trap 
(XT), IRQ count (IRQ), and NMI count (NMI). The 
description of these appear elsewhere in this manual. 

EXAMPLES: 

MACH Print the machine status 

MOIDE1=1 or 0 
PURPOSE: 

The debugger has two modes of operation, mode 0 and mode 
1. The system comes up in mode 1. Mode 1 offers all 
debug features allowing the simulated program to run 
approximately 250 times slower than real time. In mode 
0, the program will run approximately 100 times slower 
than real time, but the following features are not 
supported; nest count checking, all traps, states 
counting, memory protection, past instruction 
bookkeeping, and automatic interrupts. Mode 1 should be 


Turn indirection on 
Turn it off 
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used most of the time to take fulI advantage of the 
debugger. 

EXAMPLES: 

M0DE=1 Set mode to 1 

M0=0 Set mode to 0 

RIEGJ 

PURPOSE: 

Print the contents of the machine registers. All values 
are shown in hex. Besides the condition codes (C), A, B, 
and X registers, program counter (P) and stack pointer 
(S), the nest level, N, is displayed (shows how deep in 
subroutine calls) as well as two optional registers. One 
is enabled by the IND command and displays the byte of 
memory being pointed to by the index register. This is 
shown as 'I' in the REG dump. The second option is 
enabled by the FLAG command and will display the selected 
two bytes of memory. This is shown as ' F 1 in the dump. 

EXAMPLES: 

REG Display all registers 

R Display all registers also 

RESIET] 

PURPOSE: 

The RESET command is used to reset alI machine states. 
All registers will be set to zero, the stack pointer will 
be set to $A07F, all breakpoints and memory protection 
will be cleared, and the mode will be set to 1. This 
will set up the machine exactly the same as initializing 
the debugger upon first entry. 

EXAMPLES: 

RESET Reset the machine 


RET 

PURPOSE: 

Print the top two items on the stack. If the system is 
currently in a subroutine, these bytes will represent the 
return address from this routine. If the nest level is 
currently zero (N=0), the message "NEST LEVEL IS 0" will 
be dispIayed. 

EXAMPLES: 

RET Print the return address 
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SIETJ,<register lis+> 

PURPOSE: 

The SET command is used to set or assign values to 
registers. The cregister Iist> is a list of register 
names (C,A,B,X,S,P,N) followed by an equals sign, 
followed by the hex value. Setting the stack pointer 
will also set the depth value to the same amount. 

EXAMPLES: 

SET,P=100,A=C3 Set PC to S100 and A to $C3 

S B=20 X=1FFF Set B to $20 and X to $ 1FFF 

STACK[,<vaIue>] 

PURPOSE: 

Print the contents of the stack. The number of bytes 
specified by <value> will be printed. If <value> is not 
specified, the top 6 bytes will be printed. The stack is 
printed from high address to low address, so the top of 
stack will be the last item printed. 

EXAMPLES: 

STACK Print the top 5 stack bytes 

STACK,10 Print the top 10 stack bytes 

STATIES1 

PURPOSE: 

Display the current value of the states counter. This 
value represents the number of actual machine cycles 
(micro seconds on a 1 megahertz computer) which have been 
executed since the last START or RESET command. It .is 
also possible to set this counter to zero using 
breakpoints. 

EXAMPLES: 

STATES Print the current states count 

TRAIL 

PURPOSE: 

Print the address of the last executed instruction which 
caused a transfer of address (e.g. JMP instruction). 
This is useful when attempting to find how a program 
ended up where it did. 

EXAMPLES: 

TRAIL Print the last transfer address 
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X,<operating system command> 

PURPOSE: 

The X command is only operational on disk systems (see 
Adaptions). It allows the execution of any DOS command 
from the debugger. 


EXAMPLES 


Catalog drive 1 


X,CAT,1 


III. Memory Commands 

The memory commands allow examining and altering the contents of 
memory in a variety of ways. The assembler allows simple, direct 
insertion of object code by using standard opcode mnemonics and 
addressing mode designators. The disassembler provides an 
opposite type of convenience, in that the contents of memory may 
be displayed as assembler language mnemonics and operands. A 
single byte memory examine and change function is also available 
(the MEM command). Commands for viewing large blocks of memory, 
finding specific hex or ASCII strings, and filling a section of 
memory with a seIected character are all available in this group. 

AISM) [,<address>] 


PURPOSE: 


Enter the line at a time assembly mode. Assembly will 
start at the address specified or at the location of the 
program counter if no address is specified. No labels 
are permitted. All standard Motorola opcode mnemonics 
are accepted (no pseudo ops). When instructions contain 
a register specifier, there should be no space between 
the mnemonic and the specifier (e.g. LDAB, not LDA B). 
Al I standard addressing modes are accepted. Al I page 
zero references will be assembled as extended addresses. 
Three types of constants are permitted, decimal, hex 
(precede the number with '$'), and ASCII (precede the 
ASCII letter with a single quote (')). The PC is 
automatically advanced to the next location after the 
line is assembled. To exit this mode, type a return in 
response to the address prompt. 


EXAMPLES 


ASM,100 


100 LDAA #10 
102 LDAB #'1 
104 BRA $100 
106 


Start assembly at $100 
Load A with 10 
Load B with ASCI I 1 
Loop forever 
Exit with return 
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DllSl,<s+ar+ address>,<stop address> 

PURPOSE: 

Disassemble memory between the addresses specified. The 
address, mnemonic, and addressing mode will be printed 
out for each instruction in the range. If an illegal 
opcode is found, three stars (***) will be displayed 
instead of a mnemonic, foI lowed by the hex value found at 
that address. 

EXAMPLES: 

DIS,100,1A0 Disassemble from 100 to 1A0 

DUIMP],<address> 

PURPOSE: 

Dump 256 byte blocks of memory starting at the address 
specified. The memory is displayed 16 bytes per line, 
followed by the ASCII values of the hex numbers. After 
each block is dumped, typing an * F' will move Forward and 
display the next 256 bytes, typing a *B* will move Back 
and display the previous 256 bytes. Typing a 'return' 
will exit this mode. 

EXAMPLES: 

DUMP,A00 Dump memory at SA00 

FIL[L],<start address>,<stop address>[,<byte>J 
PURPOSE: 

This command will fill memory with the <byte> (hex) 
specified starting at the first address, filling through 
the second address. If <byte> is not specified, zero 
will be used. 

EXAMPLES: 

FILL,100,300,FF Fill with FF from 100 to 300 

FILL,0,100 Clear from 0 to 100 

f 

FIN[D1,<start address>,<stop address>,<string> 

PURPOSE: 

Find the specified string in memory. The search will 
start at the <start address> and continue through the 
<stop address>. The address of each location where the 
string is found will be displayed. The <string> can be 
entered in one of two ways. The first can be a string of 
hex digits separated by spaces or commas. The second is 
an ASCII string preceded by a double quote character. 
The limit on string length is the input buffer (72 
characters) . 
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EXAMPLES: 


FIND,0,60,7E,33,A2 Find the hex value 7E33A2 
FIND,0,1000,"TEST Find TEST in memory 



M l EM 1,<ad dress> 


PURPOSE: 


Examine and alter memory. The address specifies the 
first location to be examined. Upon entering this 
command, the address specified and its contents will be 
dispIayed on a new line. At this time, typing any non 
hex printing character will move to the next location and 
display its contents. Typing a Mine feed’ will move to 
the previous location. A carriage return will exit this 
mode. To change the contents of a location, type the new 
hex value immediately following the one displayed. After 
the value, type a space. The new value will be entered 
and the next memory location will be displayed. It 
should be noted that it is only necessary to type the 
number of significant digits and only the last two digits 
are used. For example, typing a 1 would enter 01, typing 
1A2 would enter A2, etc. If only a space is typed (no 
number) a zero wiI I be entered. Any time a non-hex 
character is typed (besides a space), the next location 
will be displayed, leaving the current location 
unchanged . 



EXAMPLES: 


Examine memory at $540 
Examine location $200 


MEM,540 
M, 200 


IV. Simulation Control 

This group of commands is used to control the program simulator. 
Code in RAM or ROM may be simulated. There are several methods 
of initiating simulation. Programs may be executed with 'trace 1 
on or off. While trace is on, each instruction will be displayed 
prior to its execution, along with the current state of the CPU 
(all register contents are displayed). Trace provides a very 
powerful tool for following program flow. Several keyboard 
commands may be invoked during actual program simulation. These 
commands al low the speeding up or slowing down of simulation, as 
well as ways to halt the execution of the program. The PAST 
command is a powerful bookkeeper which keeps track of where your 
program has been. 



- 24 - 




TSC Debug Package 


GIO] 

PURPOSE: 

Start the program executing at the location currently 
pointed to by the program counter. No machine values are 
altered with this command. 

EXAMPLES: 

GO Start the simulation at the PC 

G Does the same thing 

JIUMP],<address> 

PURPOSE: 

This command is exactly like GO except execution will 
begin at the address specified. No machine values are 
altered with this command, except the program counter 
which is set to <address>. 

EXAMPLES: 

JUMP,322 Start simulation at $322 

J,80 Start simulation at $80 

PAIST][,<val ue>] 

PURPOSE: 

Display the past several instructions executed by the 
simulated program. If <value> is not specified, the past 
255 instructions will be printed (oldest to most recent), 
otherwise <value> sets the number of instructions to be 
displayed. Each instruction is shown in a disassembled 
form, with its address. 

EXAMPLES: 

PAST 
PAST,10 

S IM[,<count>] 

PURPOSE: 

Simulate the number of instructions specified by <count> 
with the trace disabled. If the count is not specified, 
one instruction will be executed. Execution starts at 
the current PC. No machine values are altered prior to 
simulation. Trace will be reset to its original value 
following SIM's termination. 

EXAMPLES: 

SIM Simulate one 

SIM,100 Simulate 100 


instruction 
? nstructions 


Display the past 255 instructions 
Display the past 10 instructions 
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ST(ART),<address> 


PURPOSE: 

Start program simulation at the specified address. The 
PC will be set to the address specified, the states 
counter will be zeroed, and the nest count will be 
cI eared. 


EXAMPLES: 

START,1000 
ST, 2A 


STEPI,<count>1 


Start simulation at $1000 
Start simulation at $002A 


PURPOSE: 

This command will cause the debugger to enter the 'step* 
mode. The <count> specifies how many instructions should 
be executed at a time in this mode and defaults to one 
(single step). Upon entering the STEP command, the 
system will immediately execute the - number of 
instructions specified by <count>, then print a register 
dump. The execution wiI I begin at the location pointed 
to by the P register (program counter). After the 

register dump, typing a 'space' will cause execution of 

the next <count> instructions and produce another 
register dump. Typing a 'return' will exit the step 

mode. Any other character will be ignored. It should be 

noted that while in the step mode, breakpoints and 
tracing are inoperable. 


EXAMPLES: 
STEP 
STEP,10 


Enter 'single step' mode 
Execute 10 instructions at a time 


TlRACE]=<va I ue> 


PURPOSE: 

Set the trace depth. If value is set to zero, trace mode 
will be disabled. Setting trace to a non-zero value will 
enable tracing up to but not including the subroutine 
nest level indicated by <value>. For example, if TRACE=2 
is entered, tracing will occur at nest level 0 and 1 but 
will be disabled at nest levels of 2 and higher. The 
nest level is displayed as 'N' in a REGister dump. 

EXAMPLES: 

TRACE=255 Enable trace at all levels 

T=0 Disable trace mode 
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TSIIM]l,<coun+>] 

PURPOSE: 

This command is similar to SIM except trace mode is 
enabled (Trace=255) and the registers will be dumped 
after each instruction simulated. The count will default 
to 1 if not specified. Trace will be reset to its 
original value following TSIM's termination. 

EXAMPLES: 

TS IM 
TSIM,20 

’Control C’ 

PURPOSE: 

Anytime a program is being simulated, a 'control C' will 
cause the execution to halt and the message 'OP HALT AT 
XXXX' to be displayed at the terminal. This means 
'Operator Half and the XXXX will be replaced by the 
actual address where the program was halted. 

'Escape Character' 

PURPOSE: 

During program tracing, typing an 'escape' will cause the 
program to pause at the end of the next displayed line. 
At this time, typing another 'escape' will enable the 
trace to restart, while typing a 'return' will return 
control back to the command entry mode. 

•Control F' 

PURPOSE: 

During program simulation, the delay value (see DELAY) 
may be dynamically changed. Each time a 'control F' is 
typed (only during program simulation) the delay value 
will be decremented by one, thus making the program run 
faster. If the delay is zero, the 'control F' will be 
ignored. It should be noted that for large delays, many 
'control F' functions will need to be typed to see the 
increase in speed. 

'Control S' 

PURPOSE: 

This is similar to the 'control F' key but makes the 
simulation run slower. If the delay is already at its 
maximum value, the 'control S' will be ignored. 


Trace and simulate 1 instruction 
Trace 20 instructions 
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V. Breakpoints 

Breakpoints al low the insertion of check points into a program. 
A breakpoint always has an address associated with it. The 
address specifies where in the program the breakpoint action 
should occur. These actions range from printing the machine 
registers to controlling trace mode. Each breakpoint may also 
have a pass counter which determines the amount of time until it 
becomes active, or the amount of time it should remain active. 
The actions are also dependent on the result of a conditional 
expression involving a CPU register or memory location. 
Breakpoints are decoded with th following precedence. If the 
address of the current PC matches the address of a breakpoint, 
then the pass count is checked. If the counter is in a state to 
allow continuing, then the condition is checked (if present). 
Finally the actions specified for the breakpoint are performed. 
The other commands in this group allow clearing breakpoints 
(removing them), printing histogram counter values, print 
breakpoint location and type, and clear histogram counters. 

B,<actions>§<address>[,<modifier><count>][,IF<condition>1 
or 

B@<address> [ ,<mod i f i erxcoun t> 1 [, I F<cond i t i on> ] 

PURPOSE: 

The B command is used to set breakpoints. These 
breakpoints are nondestructive in that they do not alter 
the contents of memory at the breakpoint location. Two 
forms of the command exist. The first is the general 
form of the command and allows user definable breakpoint 
actions. The <actions> may be any one or combination of 
the following: 

R. ..Print register contents 

Z...Zero the states counter 

T. ..Trace mode on 

U. ..Trace mode off (untrace) 

H...Histogram counter 

M...Print message 

J...Jump to new address 

S. ..Stop simulation 

The above actions are executed in the order shown. A 
histogram action causes a counter to be set up such that 
each time the instruction at the address specified is 
executed, the counter will be incremented by one. By 
later requesting a HISTogram, all of the counters and 
their associated counts will be displayed. The second 
form of the B command is a special case of the first. In 
this form, no actions are specified, and they default to 
S and R (just as if S and R were used in form one). The 
<count> part of the syntax is optional and acts as a pass 
counter. The <modifier> shown in the command description 
represents either a '>', used to mean 'after', and '<' to 
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represent 'before'. A count preceded by '>' will cause 
the breakpoint defined on the line to remain inactive 
until <count> number of times through that address. A 
count preceded by '<’ will cause the breakpoint defined 
to be active for only the <count> number of times through 
that address, at which time it wil.l be automatically 
removed. The <count> in either case must not exceed 
32,000. The next part of the syntax is the optional 
<conditionaI>. This allows the breakpoint action to be 
dependent on some condition. The condition can be the 
contents of any machine register being equal or not equal 
to a hex value ('=' and '!=' respectively), or the 
contents of a specified memory location being zero or not 
zero. If a register is used, simply state the register 
name, followed by the relational, followed by the hex 
value (e.g. A=23, or B!=E2). To use a memory location, 
a dollar sign '$' must precede the address. For example, 
$100=0 would check if the byte at location hex 100 was 
zero, and $A20!=0 would check if the byte at location hex 
A20 was not zero. If a memory address is specified, the 
only allowed value to the right of the relational is 
zero, and if any other value is used, it will be ignored. 
NOTE: The conditional part of the breakpoint definition 
may not be used with H,M, or J action codes. Two of the 
breakpoint actions require special syntax. These are the 
M (message) and J (jump) types. The M action is used to 
print a specified message to the terminal upon execution 
of the breakpoint. The J action is used to transfer 
control to another address (like a JMP instruction). Any 
breakpoint containing M may not contain J and vice versa. 
A breakpoint containing M should have an ASCII string 
following the <count> (or following the address if no 
count is specified). This string is the message which 
will be printed on the terminal each time the instruction 
is to be executed. Messages should be kept short (under 
5 letters if possible). For the J type action, the hex 
address of the location of transfer should be provided 
after the <count> field. The examples below will help 
clarify the syntax. 


EXAMPLES: 


B@200,IF A=3C 


B,M@210,SUB 1 


B@ 1 00 
B,SR@100 
B,H@A100 
B,ZR@300 >100 


Stop and print registers at $100 

Same as above 

Set histogram at $A100 

Zero states and print registers 

after 100 times through $300 

Stop & print registers at $200 

only if acc. A = $3C 

Print message 'SUB 1' every time 

through location $210 


continued 
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B,J@100,1000 Transfer control to location $1000 

when reach instruction at $100 
B,TZ@400,<25,IF $20=0 

For the first 25 times through 
location $400, turn trace on and 
zero the states counter, but only 
if location $20 is zero. 


BP[ ,<address>|-<address>]] 

PURPOSE: 

The BP command is used to print the location of 
breakpoints and their associated action codes. The two 
address specifications are used to define the region of 
memory for checking breakpoints (beginning and ending, 
respectively). If no addresses are specified, all 
breakpoints will be listed. If only one address is 
given, then only the breakpoint at that address will be 
displayed (if one exists). Only the action codes are 
listed with each address. 

EXAMPLES: 

BP,10-C00 List breakpoints between $10 & $C00 

BP List all breakpoints 

CLB[,<address>[-<address>]] 

PURPOSE: 

Clear breakpoints in specified memory region. The 
addresses define the region of memory. If only one 
address is listed then only the breakpoint at that 
location will be cleared. If no addresses are specified, 
all breakpoints will be cleared. 

EXAMPLES: 

CLB 

CLB,0-100 

CLB,22A 

CLHl,<address>[-<address>]1 
PURPOSE: 

Clear histogram counters in the specified memory region. 
The addresses define the region of memory. If only one 
address is listed then only the histogram counter at that 
location will be cleared. If no addresses are specified, 
all counters will be declared. NOTE: This command does 
not remove the histogram breakpoints, but clears Its 
associated counter to zero in preparation for a new run. 


Clear all breakpoints 

Clear breakpoints between $0 & $100 

Clear breakpoint at $22A 
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EXAMPLES: 

CLH Clear alI histogram counters 

CLH,25-200 Clear counters between $25 & $200 

CLM 

PURPOSE: 

Clear all messages in the breakpoint message table (used 
by the M action code, see the B command). This table is 
a fixed size and can be filled up. When deleting message 
type breakpoints using the CLB command, the associated 
space in the message table does not get freed. It is 
recommended that whenever alI M type breakpoints have 
been cleared, also use the CLM command. Do not use this 
command if there are any active M type breakpoints. 
Their message strings will be destroyed! 

EXAMPLES: 

CLM Clear alI messages 

H[I ST)[,<address>I-<address>]] 

PURPOSE: 

Print the histogram counter totals for the section of 
memory specified. The addresses define the region of 
memory. If only one address is listed then only the 
counter at that location is displayed. If no addresses 
are specified, all counter contents will be displayed. 
Each counter is shown preceded by its address. The 
counter value shows the number of times the instruction 
at that address has been executed. 

EXAMPLES: 

HIST Display all histogram counters 

H,0-200 Display counters between 0 & $200 

RT[ ,<address>) 

PURPOSE: 

Start real time program execution (not simulated) at the 
current PC location. Program execution will halt at the 
<address> specified. This is similar to the standard 
breakpoint most users are familiar with in that memory is 
actually altered at the address specified (with a JMP 
instruction). Entering RT without an address will clear 
any real time breakpoint which may have been previously 
entered. This type of breakpoint and program execution is 
not recommended since no protection or checking is 
performed. When the program reaches the break address 
specified, the breakpoint is automatically cleared and 
the original code restored in memory. ROM may not be 
breakpointed with this command. 
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EXAMPLES: 


Start at PC, end at $600 
Clear an existing RT breakpoint 


RT,600 
RT 


VI. Memory Protection 

The memory protection commands are a very powerful feature of the 
program debugger. The PROT command a I lows selected areas of 
memory to be write, execute, memory, or simulate protected. 
Write protected memory will cause a trap on any attempt to write 
to it. Execute protect wiI I not al low opcodes to be fetched. 
Memory protect will not permit any type of reference; read, 
write, or execute. Simulate protect is used to protect sections 
of code which should not be simulated (executed in real time). 
It is important that only code cal led as a subroutine from 
non-simu I ate protected memory be contained in the area(s) of 
memory designated as simulate protected. An example would be to 
simulate protect the section of memory where a DOS resides. Al I 
subroutine calls to the DOS would then be executed in real time. 
Code which is simulate protected and does not follow this 
convention wiI I usual ly cause the CPU to take over the execution 
of the program resulting in a loss of control• NOTE: To protect 
the memory around the machine stack (upper and lower bounds), use 
the f memory 1 protection. This is the only type checked on stack 
references. Other commands in this group allow examination of 
protected memory regions or bounds, as well as the clearing of 
protection types. 

BOIUNDS)[,<types>] 


PURPOSE: 


Display the bounds of protected memory. Each <type> 
specified will list all regions of memory protected by 
that type. <type> may be W, M, X, or S for write, 
memory, execute, and simulate, respectively. Multiple 
types may be displayed by listing the types on the 
command I ine separated by a comma or space. If no type 
is specified, all types of protect ion will be listed. 


EXAMPLES: 


BOUNDS 
BO,M,X 


Display all memory protection 
Display memory and execute 
protection bounds 
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CLP[,<type> J 
PURPOSE: 

Clear all protected regions for a specified type of 
protection. The <type> is specified by the same letters 


descr i bed 

in BOUNDS. 

On 1y one type may be 

1isted per 

command 1 

line. If 

type is not specified, all 

protection 

will be cl 

1 eared. 



EXAMPLES: 




CLP 


Clear all protection 


CLP, X 


Clear execute protection 



PIROT),<address>[-<address>),<type> 

PURPOSE: 

The PROT command is used to assign protection to a region 
of memory. The two <address> specifiers designate the 
beginning and ending addresses of the selected region. 
If only one address is specified, only the byte at that 
location will be protected. The <type> disignator may 
either be M, X, W, or S for memory, execute, write, and 
simulate protection respectively. Only one type may 
appear with each address range. Multiple protection may 
be performed on one line by separating the range-type 
specifiers by a comma or a space. 

EXAMPLES: 

PROT,0-100,M Memory prot 0-$100 

P, 100,W,A100-A600,S 

Write prot $100 and simulate 
protect $A100-A600 


VII. Execution Traps 

Execution traps allow program stopping on certain general 
conditions. Several traps are always enabled. These include; 
trap on illegal opcode and trap on RTS if nest count=0. The user 
may enable and disable several other traps. These traps are for 
interrupt type instructions, transfer of address type 
instructions, trap on a selected subroutine depth (nest count), 
an instruction count timeout, and a general 'stop 1 address. 

INST=<count> 

PURPOSE: 

Set the instruction count timer to the value of count. 
If set to zero, this trap will be disabled. This timer 
is used to count the number of simulated instructions. 
Each time this counter reaches zero, the program will 
halt and print '1C TIMEOUT AT XXXX', where XXXX is the 
address where the program stopped, and the counter will 
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be reset to the value it started at (the value specified 
by <coun t>) . 

EXAMPLES: 

INST=400 Set counter to 400 

INST=0 Disable the intruction counter 

ITI RAP 1=0N or OFF 

PURPOSE: 

Turning the I TRAP on will cause the simulator to treat 
interrupt type instructions similar to illegal opcodes. 
Any time a RTI, SWI, or WAI instruction is found, the 
message *1 TRAP AT XXXX' will be displayed. The address 
of the instruction will be printed in place of the XXXX 
shown. 

EXAMPLES: 

ITRAP=0N Enable the interrupt trap 

IT=0FF Turn off the trap 

N[EST]=<vaIue> 


PURPOSE: 

Set the nest trap at the level specified by <value>. The 
simulator will trap execution if a subroutine call 
instruction is found which will cause the nest level to 
equal or exceed that set by NEST. Setting the <value> to 
zero will disable this trap. 

EXAMPLES: 

NEST=6 Set nest trap to level 6 

N=0 Disable nest trap 

STOP=<address> 


PURPOSE: 

The STOP trap is a general 'stop at address X' trap. It 
is useful for trapping returns to monitor type programs 
or operating systems. The trap is set at the address 
specified. 


EXAMPLES: 

ST0P=100 
STOP=EODO 


Set stop trap at $100 
Set trap at MIKBUG entry 
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XFR=ON or OFF 
PURPOSE: 

Enabling the XFR trap will cause a trap each time a 
transfer of address type instruction is found (JMP, BRA, 
or BXX). This is useful for following major program 
flow. Typing a 'G' command after this trap will cause the 
program to start executing again. 

EXAMPLES: 

XFR=ON Enable the transfer trap 

XFR=OFF Turn the trap off 


VIII. Interrupt Control 

Both NMI and IRQ type interrupts may be simulated. Two modes of 
operation are possible. The first is automatic, periodic 
interrupt generation. This mode allows interrupts to be 

generated every N instructions. The second allows random 
interrupt generation from the keyboard. When these keys are 
typed during program simulation, the appropriate interrupt will 
be issued. 

IRQ=<count> 

PURPOSE: 

Cause an IRQ type interrupt to be generated every <count> 
instructions. If count is set to zero, IRQ interrupts 
will be shut off. 

EXAMPLES: 

IRQ=5000 Generate IRQ every 5000 instructions 

IRQ=0 Turn off automatic IRQs 

NMI=<count> 

PURPOSE: 

Cause an NMI type interrupt to be generated every <count> 
instructions. If <count> is zero, automatic NMI 
interrupts will be turned off. 

EXAMPLES: 

NMI=300 Generate NM I every 300 instructions 

NMI=0 Turn off automatic NMIs 
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'Control I' 

PURPOSE: 

Typing a 'control I' during program simulation will cause 
an IRQ type interrupt to be generated. 

'Control N' 

PURPOSE: 

Typing a 'control N* during program simulation will cause 
an NMI type interrupt to be generated. 
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Command Summary 


I. General System Control 
C [ A LC 1 

DELlAYJ=<vaIue> 

DEPITHJ 
EIXITJ 

FlLAG]l=<address> ] 

I ND=ON or OFF 
MAICH ] 

MO[DE]=0 or 1 
R [EG] 

RESIET] 

RET 

S[ET],<register list> 
STACK!,<value>] 

STATIES] 

TRAIL 

X,<o. s. command> 


II. Memory Commands 
A[SM ] [,<address>] 

D[IS],<start address>,<stop address> 

DUIMP],<address> 

FIL[L],<start address>,<stop address>[,<byte>] 
FIN[D],<start address>,<stop address>,<string> 
M[EM ] ,<address> 


III. Simulation Control 
G101 

JlUMP],<address> 

PA[ST][,<vaIue>] 

S IM[,<count>] 

ST[ART],<address> 

STEP!,<count>] 

T[RACE J =<vaIue> 

TS[IM][,<count>] 
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IV. Breakpoints 

B,<action>@<address> [ , <mod i f i erxcoun t> ] I , IF<cond ition> I 
B@<address>l,<modifier><coun+>][,IF<condition>] 

BP[,<address>l-<address>)1 

CLB(,<address>[-<address>)l 

CLH[,<address>[-<address>]) 

CLM 

HI 1ST]t,<address>[-<address>11 
RTl,<address>) 


V. Memory Protection 

B010UNDS)I,<types>] 

CLPI,<type>] 

P I ROT],<address>[-<address>],<type> 


V I . Execution Traps 

I NST=<count> 

IT[RAP]=0N or OFF 
N[EST]=<vaIue> 
STOP=<address> 

XFR=ON or OFF 


VII. Interrupt Control 


IRQ=<count> 
NMI=<count> 
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Message Descriptions 


The following is a list of all Debug generated messages and 

their respective meanings. 

WHAT? = This is the general error message reported when an 
invalid input command has been entered. 

"STOP" AT = The address set by the STOP trap command has been 
reached. 

1C TIMEOUT AT = The number of instructions specified by the INST 
trap command have been executed. 

ILLEGAL OPCODE AT = The instruction pointed to by the PC is an 
i I IegaI opcode. 

I TRAP AT = An SWI, RTI, or WAI instruction has been encountered 
and the I TRAP command has been used to enable the interrupt 
trap. 

LAST XFR FROM = Displayed by request using the TRAIL command. 
The address gives the location of the last transfer of 
address type instruction which was executed. 

SYNTAX ERROR = The command just entered does not follow the 
syntax rules for that command. 

EP TRAP AT = An Execution Protect trap at the specified location 
resulting from an attempt to execute code in execute 
protected memory. 

WP TRAP AT = A Write Protect trap at the specified location 

resulting from an attempt to write into write protected 
memory. 

EX - MP TRAP AT = An attempt to execute code residing in memory 
protected memory has been detected at the specified address. 

REF - MP TRAP AT = An attempt to reference (read or write) a byte 
in memory protected memory has been detected at the 
specified address. 

SP TRAP AT = A Stack Pointer reference (PSH, JSR, etc.) was 

attempted in a section of memory which is memory protected. 

TABLE OVERFLOW = The last command entered caused an internal 

table to overflow. The command dis not get executed. 

NC TRAP AT = A Nest Count trap occurred as a result of the nest 
level reaching the level specified in a NEST command. 
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RTS IN LEVEL 0 AT = An RTS instruction was encountered while the 
nest level was 0 (no previous cal I to subroutine had been 
executed). 

NEST LEVEL IS 0 = There is no return address on the stack so the 
RET command can not display an address. 

XFR TRAP AT = A transfer of address type instruction has been 
encounterd with the transfer trap enabled (from XFR=ON). 

MON XFR AT = The program being simulated tried to pass control to 
the monitor address which is used by the EXIT command. 

OP HALT AT = An operator halt signal (control C character) was 
detected by the simulator. 
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Getting Debug Running 


The Debug Package loads from address $3C00 through $5FFF. 
The tape should be loaded into memory using your monitor system's 
load routine. Once loaded, the program to be debugged should be 
loaded. It is important that the two programs do not overlap in 
memory. If they do, consult the section of this manual on 
relocating the debugger. After all code is resident in memory, 
start the Debug Package at location $4100, the cold start entry 
point. A '**' prompt should appear. The cold start entry 
initializes all system tables, clears all registers, and clears 
out breakpoints. If it is necessary to re-enter the debugger 
after an EXIT command, the program should be entered at location 
$4103, the warm start entry point. No clearing of values or 
tables is performed at this entry. 
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Example Use 


The following is an example debug session. It is assumed 
that the Debug Package is running and the program being tested is 
resident in memory. The sample program is shown first in its 
source listing form. Following is the sample debug operation. 


I. Sample Program Source Listing 


* 

* FIND THE MAX & MIN OF DATA LIST 

* 


0100 OR6 $0100 

* STORAGE LOCATIONS 


0100 




LARGE 

RMB 

1 

LARGEST VALUE 

0101 




SMALL 

RMB 

1 

SMALLEST VALUE 

0200 





0RG 

$0200 






* PROGRAM STARTS HERE 


0200 

CE 

02 

26 

MINMAX 

LDX 

#DATA 

POINT TO DATA STRING 

0203 

7F 

01 

00 


CLR 

LARGE 

PRESET MAX 

0206 

86 

FF 



LDA A 

#$FP 

ALSO 

0208 

B7 

01 

01 


STA A 

SMALL 

PRESET MINIMUM 

020B 

A6 

00 


LOOP 

LDA A 

0,X 

GET DATA ITEM 

020D 

B1 

01 

00 


CMP A 

LARGE 

ITEM > LARGE ? 

0210 

24 

03 



BCC 

C0NT2 


0212 

B7 

01 

00 


STA A 

LARGE 

UPDATE LARGE 

0215 

B1 

01 

01 

C0NT2 

CMP A 

SMALL 

ITEM < SMALL ? 

0218 

24 

03 



BCC 

C0NT3 


021A 

B7 

01 

00 


STA A 

LARGE 

UPDATE SMALL 

021D 

08 



C0NT3 

INX 


MOVE TO NEXT ITEM 

021E 

8C 

02 

2E 


CPX 

#DATEND 

END OF LIST? 

0221 

26 

E8 



BNE 

LOOP 

IF NOT, REPEAT 

0223 

7E 

E0 

DO 


JMP 

MON 

RETURN TO MONITOR 





* DATA 

LIST 



0226 

02 



DATA 

FCB 

2,54,76, 

32,12,87,55,6 

022E 




DATEND 

EQU 

* 


E0D0 




MON 

EQU 

$E0D0 

MONITOR EQUATE 
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II. Sample Debug Session 


'♦DIS.200,223 


0200 LDX #$0226 
0203 CLR $0100 
0206 LDA A #$FF 
0208 STA A $0101 
020B LDA A 0,X 
020D CMP A $0100 
0210 BCC $0215 
0212 STA A $0100 
0215 CMP A $0101 
0218 BCC $021D 
021A STA A $0100 
021D INX 

021E CPX #$022E 
0221 BNE $020B 
0223 JMP $E0D0 


7 ) isAssEm&lE A'IAcH/juE CobL TPosA 
$Zoc> To $2,2,3* SEE Th £ SouEc.E 
E)5~T/kJ& Tc>£ CoaaPAP ISdaJ . 


**PR0T,200,225,W 
"♦BOUNDS,W 

WRITE PROTECTION 


LufinE PioT&r THE P&osEA/y\ A PEA 
~D) 5 PEA'S THE P&tiTEzncn} 'BaoaJDS . 


0200-0225 


**R DisPcfii THE /STEPS 

C=00 A=00 B=00 X=0000 S=A07F P=0000 N=00 0000 ADC A $B9B9 

**START,200 5tA(Lt PEotdAto fir JtZoo 

mON XFR AT E0D0 - aacaj/tc/L E/LausfEP rPAP * 

**M,100 , , x 

U100 06 . £<aauh£ 4too 2 4 lot (LAd6£ <f 5,T)AU- ) 
0101 FF - Q£ 20 ur is Hnr PbPPEzT ! 

"* SET 9=200 SET Pc, P P£6 iST£PS 

♦*R 

C=C5 A=06 B=00 X=022E S=A07F P=0200 N=00 0200 LDX 

**IND=0N SET IJD 4 fLAL -, UdtE PEsolT 
♦*FLAG=100 
♦*R 


**TSIM,10 


#$0226 



**B@218 

♦*BP 


B=00 

X 

II 

o 

ro 

r\> 

m 

S=A07F 

P=0200 

N=00 

I=B9 

F=06FF 

0200 

LDX 

#$0226 


7 EPicE 10 

Tusmsc-T/DHS 





B=00 

X=0226 

S=A07F 

P=0203 

N=00 

1=02 

F=06FF 

0203 

CLR 

$0100 

B=00 

X=0226 

S=A07F 

P=0206 

N=00 

1=02 

F=00FF 

0206 

LDA 

A #$FF 

B=00 

X=0226 

S=A07F 

P=0208 

N=00 

1=02 

F=00FF 

0208 

STA 

A $0101 

B=00 

X=0226 

S=A07F 

P=020B 

N=00 

1=02 

F=00FF 

020B 

LDA 

A 0,X 

B=00 

X=0226 

S=A07F 

P=020D 

N=00 

1=02 

F=00FF 

020D 

CMP 

A $0100 

B=00 

X=0226 

S=A07F 

P=0210 

N=00 

1=02 

F=00FF 

0210 

BCC 

$0215 

B=00 

X=0226 

S=A07F 

P=0215 

N=00 

1=02 

F=00FF 

0215 

CMP 

A $0101 

B=00 

X=0226 

S=A07F 

P=0218 

N=00 

1=02 

F=00FF 

0218 

BCC 

$021D 

B=00 

X=0226 

S=A07F 

P=021A 

N=00 

1=02 

F=00FF 

021A 

STA 

A $0100 

B=00 

X=0226 

S=A07F 

P=021D 

N=00 

1=02 

F=02FF 

021D 

INX 



5ET 

' 5P 1 BPEAkPoik) t 

Jb T 

*2/3 




0218 - SR 


Di^PlA y 1 All SAEAKPo/uTS , 
-44- 









TSC Debug Package 


Sr A At P/Z062A-M At PCs. 

**G Hit RAAAkPoiht ""l, 

t=Cl A=36 B=00 X=0227 S=A07F P=0218 N=00 1=36 F=02FF 0218 BCC $021D 
**TSIM ~ TAAcC / ttJ£T<ZOcT<o*J . 


C=C1 A=36 B=00 X=0227 S=A07F P=021A N=00 1=36 F=02FF 
**ASM,21A 

021A STAA $101 Jse ASM To £'/ X / 

U21D 

**CLB 

Cl£AA Au. Ufo/AJTS . 


021A STA A $0100 
JAcu id Le. STA A HO / 


**START 200 
MON XFR AT EODO 
**M 100 

0100 00 . EkAA^hL 

0101 02 SfaALL 15 £>K l 

**TRACE=40 

**START,200 OiuAAlE. T(2Ao£ 




LM(,E- f 'S/mAou 
LA A/, £ /j s T/i-j, 
To Ho t EjaJ 


Uj£o/J£> . 


c=co 

A=06 

B=00 

X=0226 

C=C4 

A=06 

O 

o 

II 

CQ 

X=0226 

o 

II 

o 

00 

A=FF 

B=00 

X=0226 

C=C8 

A=FF 

B=00 

X=0226 

o 

II 

o 

o 

:> 

ii 

o 

ro 

o 

o 

II 

CQ 

X=0226 

o 

II 

o 

o 

A=02 

00 

II 

o 

o 

X=0226 

o 

II 

o 

o 

II 

O 

ro 

o 

o 

II 

CO 

X=0226 

C=C1 

A=02 

o 

o 

II 

CQ 

X=0226 

o 

II 

o 

I—» 

A=02 

o 

o 

II 

CQ 

X=0226 

C=C1 

> 

II 

O 

ro 

o 

o 

II 

CQ 

X 

II 

o 

ro 

ro 

cr> 

o 

II 

o 
»—» 

CM 

o 

ii 

c 

O 

O 

II 

CQ 

X 

II 

o 

ro 

ro 

C=C1 

A=02 

O 

O 

II 

CQ 

X=0227 

C=C1 

A=02 

O 

o 

II 

CQ 

X=0227 

C=C1 

A=36 

B=00 

r^ 

CM 

CM 

o 

II 

X 

c=co 

A=36 

o 

o 

II 

CQ 

X 

II 

o 

ro 

ro 

c=co 

A=36 

O 

O 

11 

CQ 

X 

ii 

o 

ro 

ro 

c=co 

A=36 

O 

O 

II 

CQ 

X 

ii 

o 

ro 

ro 

o 

II 

o 

o 

A=36 

00 

II 

O 

O 

r^ 

CM 

CM 

o 

ii 

X 

OP HALT A1 

’ 021D 

**DIS 20B 

210 



S=A07F 

S=A07F 

S=A07F 

S=A07F 

S=A07F 

S=A07F 

S=A07F 

S=A07F 

S=A07F 

S=A07F 

S=A07F 

S=A07F 

S=A07F 

S=A07F 

S=A07F 

S=A07F 

S=A07F 

S=A07F 


P=0203 

P=0206 

P=0208 

P=020B 

P=020D 

P=0210 

P=0215 

P=0218 

P=021A 

P=021D 

P=021E 

P=0221 

P=020B 

P=020D 

P=0210 

P=0215 

P=0218 

P=021D 


N=00 1=02 F=0002 
N=00 1=02 F=0002 
N=00 1=02 F=0002 
N=00 1=02 F=00FF 
N=00 1=02 F=00FF 
N=00 1=02 F=00FF 
N=00 1=02 F=00FF 
N=00 1=02 F=00FF 
N=00 1=02 F=00FF 
N=00 1=02 F=0002 
N=00 1=36 F=0002 
N=00 1=36 F=0002 
N=00 1=36 F=0002 
N=00 1=36 F=0002 
N=00 1=36 F=0002 
N=00 1=36 F=0002 
N=00 1=36 F=0002 
N=00 1=36 F=0002 


0203 

0206 

0208 

020B 

020D 

0210 

0215 

0218 

021A 

021D 

021E 

0221 

020B 

020D 

0210 

0215 

0218 

021D 


CLR $0100 
LDA A #$FF 
STA A $0101 
LDA A 0,X 
CMP A $0100 
BCC $0215 
CMP A $0101 
BCC $021D 
STA A $0101 
INX 

CPX #$022E 
BNE $020B 
LDA A 0,X 
CMP A $0100 



Should HOT H/h/C 


020B LDA A 0,X 
020D CMP A $0100 
0210 BCC $0215 



5hoolo 6£ 



/ ajST£L u<s T/oaJ 


I 

0 


**ASM 210 
U210 BLS $215 
u212 
**T=0 

**START 200 
MON XFR AT EODO 
**M 100 
0100 67 . 

0101 02 


0<,L A6M to CcPPE^r 


Sat tzacT to d) Eoi-f) EuaJ ?£o6eA/iA~ 
AMSluLPa a££ aJoco> £oZ££c.T / 
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**B H02OO 
**B H02OB 
**B H0215 
**B H021D 

** B p 


0200 

020B 

0215 

021D 


H 

H 

H 

H 


**START 200 
MON XFR AT EODO 
**HIST 


0200 

020B 

0215 

021D 


0 

8 

8 

8 


P/ZoFU-i 7 //£ PP-D&&A/A cJ/ TP S\A 

%££AfcPoitJT* A? *200, ZCB, 2/S~, PZfb 


A PL, SP£ApPOIKJT3 . 


ZOaJ P&06Q-M - 'ZTTMT ' CUA£< 
T/i£ 3 tAt£^ (I&cjaj~ r£ £L , 

// !£7£>6 PA/7\ PZ/aJTOUT 


★★STATES 

STATES = 00000300 
**DIS 200 223 


PPogAAM 2£00/££D 3co AiA^h/v£ <£?C£3£. 


0200 LDX 
0203 CLR 
0206 LDA 
0208 STA 
020B LDA 
020D CMP 
0210 BLS 
0212 STA 
0215 CMP 
0218 BCC 
021A STA 
021D INX 
021E CPX 
0221 BNE 
0223 JMP 

**EXIT 

$ 


#$0226 

$0100 

#$FF 

$0101 

0,X 

$0100 

$0215 

$0100 

$0101 

$021D 

$0101 

#$022E 

$020B 

$E0D0 


2)/SAs££/n £/uAp , 


pK/r Th£ J>£Pc>66££. 
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Adapting to Your System 


The following descriptions may prove helpful in adapting 
this program to non-standard systems. All I/O and stack 
references are described below. 


I. I/O References 


GETCHR at $4106. This 
character routine in 
may be used as long as 
accumulator with the 
registers. 


jump vector references the standard input 
the SWTBUG monitor ROM. Any input routine 
it returns the ASCII character in the A 
parity removed, and preserves the B and X 


PUTCHR at $4109. This jump vector references the standard output 
character routine in the SWTBUG monitor ROM. Any output routine 
may be used as long as it outputs the character from the A 
accumulator, and preserves the B and X registers. 

WARMS at $410C. This jump vector references the starting entry 
address of the SWTBUG monitor ROM. This may be changed to the 
starting address of your own monitor. This is the address used 
by the EXIT command. 


II. I/O Related Storage 

ACIA at $410F. This FDB formed address is a pointer to the ACIA 
base address used by the basic inpu+ and output routines. Change 
as needed. NOTE: The Debug Package requires an ACIA type serial 
interface to function correctly. 

BSP at $4111. This byte contains the character which is decoded 
as the backspace character (currently a Control H, $08). Change 
as desired. 

DEL at $4112. This byte contains the character which is decoded 
as the line cancel character (currently a Control X, $18). 
Change as desired. 

BSE at $4113. This byte contains the character which will be 
echoed after the receipt of a backspace character (currently a 
Control H, $08). If this character is set to $08, a space will 
be output preceding the backspace echo character. Setting this 
byte to zero will inhibit the backspace echo character. 

ESC at $4114. This byte contains the character which is decoded 
as the Escape character (currently an ASCII Escape, $ 1B). This 
may be changed as desired. 
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III. Stack Pointer References 

Load Stack at $41 IB and $4195. These two locations contain LDS 
instructions and set the stack to S3FFF. They may be changed as 
desired. 


IV. The X Command 

The X command calls a section of code at location $5589. This is 
implemented for the FLEX disk operating system and calls FLEX to 
perform a specified command. If you are using a different 
operating system, you may substitute your own code to perform the 
equivalent. The code may reside from $5589 through $55A2. 


V. System Tables 


The Debug Package uses several system tables which reside from 
$3C00 to $3F9F. They are named and sized as follows: 


BPTAB 

RMB 

256 

Allows 

32 breakpoints 

STRTPC 

RMB 

512 

If 

256 past instructions 

SMTAB 

RMB 

32 

II 

8 sim prot fields 

EXTAB 

RMB 

32 

ft 

8 ex prot fields 

WPTAB 

RMB 

32 

VI 

8 write prot fields 

MTAB 

RMB 

32 

VI 

8 mem prot fields 

MSGTAB 

RMB 

32 

VI 

approx 5 messages 


These tables may be moved and expanded to allow more 
and protection fields as desired. Complete details 
given here, as this is a job for the more experienced 


breakpoints 
will not be 
programmer. 


VI. Saving the Altered Program 

After modifications have been made to the program, it may be 
saved on mass storage. The program should be saved from $4100 
through $5FFF. The starting or transfer address is $4100. 
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Relocating the Debug Package 

The Debug Package may be relocated in memory by using the 
TSC 6800 Relocator (part number SL68-28). The Debug Package as 
sold resides from $3000 to $5FFF. It may be moved easily to any 
lower memory location and to any location higher than $5000. The 
example below shows relocation to $5000 which moves the cold 
start entry address to $6100 (from $4100). The relocated version 
will reside from $5000 to $7FFF. If it is necessary to move the 
program to an area between $3000 and $5000, two relocations must 
be performed, one moving it to a lower location, and then up to 
the desired position. This is necessary because of program 
overlap. NOTE: The Debug Package must always start on a page 
boundary. 

Relocation Example 

* TSC 6800 REL0CAT0R * 

PRESENT PROGRAM: 

BEGIN ADDRESS? 4100 
END ADDRESS? 5FFF 
MOVE TO? 6100 
FIX REFERENCES? Y 
LOAD FROM TAPE? N 
DATA BLOCKS? Y 

BEGIN ADDRESS? 41 OF 
END ADDRESS? 411A 

BEGIN ADDRESS? 57A8 
END ADDRESS? 5FFF 

BEGIN ADDRESS? FFFF 
ALTER RANGE? Y 
BEGIN ADDRESS? 3B00 
END ADDRESS? 5FFF 


FIX FDB ! 

S? Y 

ADDRESS? 

57AC 

ADDRESS? 

57B0 

n 

57B9 

it 

57BE 

»i 

5705 

it 

57CB 

it 

57D1 

it 

57D7 

it 

57DD 

it 

57E3 

it 

57EB 

ti 

57F3 

ii 

57FA 

ti 

5801 

it 

5808 

it 

580F 

it 

5816 
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ft 

581B 

fl 

5822 

•1 

5828 

ft 

582F 

tl 

5835 

VI 

583D 

If 

5844 

II 

584A 

II 

5851 

IV 

5858 

It 

585F 

IV 

5865 

II 

586C 

II 

5873 

VI 

5879 

IV 

5881 

II 

5887 

II 

588C 

VI 

5892 

II 

5898 

II 

58A0 

If 

58A8 

IV 

58B 1 

II 

58B8 

ft 

58BF 

II 

58C7 

II 

58CF 

ft 

58D6 

It 

58DA 

IV 

58E0 

If 

58EB 

II 

58ED 

VI 

58EF 

It 

58F 1 

It 

58F3 

II 

58F 5 

It 

58F7 

II 

58F9 

VI 

58FB 

If 

58FD 

ft 

58FF 

II 

5901 

II 

5903 

If 

5905 

VI 

5909 

VI 

590D 

II 

591 1 

It 

5915 

VI 

5919 

VI 

591D 

ADDRESS? 

5921 

ADDRESS? 

FFFF 


RELOCATION COMPLETE !! 
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* 

* TSC DEBUG PACKAGE 

* 

* COPVRIGHT <C> 1978 BV 

* TECHNICAL SYSTEMS CONSULTANTS/ 

* BOX 2574 

* W. LAFAYETTE/ INDIANA 47986 

* <317> 423-5465 

* 


* TEMP STORAGE 


4880 




ORG 

$4000 

4000 



LINBUF 

RMB 

80 

4050 

00 

00 

BUFPNT 

FDB 

0 

4052 

00 

00 

CRSAVE 

FDB 

0 

4054 

00 

00 

INDEX 

FDB 

0 

4056 

00 

00 

DATPNT 

FDB 

0 

4058 

00 

00 

XSAVE 

FDB 

0 

405A 

00 


OUTNUM 

FCB 

0 

405B 

00 


TEMP 

FCB 

0 

405C 

00 


TEMPI 

FCB 

0 

405D 

00 

00 

VALUE 

FDB 

0 

405F 

00 

00 

POINT 

FDB 

0 

4061 

00 

00 

P0INT2 

FDB 

0 

4063 

00 

00 

FIRST 

FDB 

0 

4865 

00 

00 

LAST 

FDB 

0 

4067 

00 


CNTR 

FCB 

0 

4068 

00 


LSTTRM 

FCB 

0 

4069 

00 


RTBF 

FCB 

0 

406A 

00 

00 

RTAD 

FDB 

0 

406C 

00 


RTDAT 

FCB 

0/ 0/ 0 

406F 

00 


MOD 

FCB 

0 

4070 

00 


OPND 

FCB 

0/ 0/ 0 

4073 

00 

00 

END 

FDB 

0 

4075 

00 

00 

COUNT 

FDB 

0 

4077 

00 

00 

MAXC 

FDB 

0 

4079 

00 

00 

NMIC 

FDB 

0 

407B 

00 

00 

NMIC2 

FDB 

0 

407D 

00 

00 

IRQC 

FDB 

0 

407F 

00 

00 

IRQC2 

FDB 

0 

4081 

00 

00 

MAXSP 

FDB 

0 

4083 

00 

00 

TSP 

FDB 

0 

4085 

00 

00 

STPCNT 

FDB 

0 

4087 

00 

00 

SIMCNT 

FDB 

0 

4089 

00 


WAITF 

FCB 

0 

408A 

00 


PAUSF 

FCB 

0 

408B 

00 


DELAY 

FCB 

0 

408C 

00 


CC 

FCB 

0 

408D 

00 


AR 

FCB 

0 

408E 

00 


BR 

FCB 

0 

408F 

00 

00 

XR 

FDB 

0 


INC. 
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4991 

00 

00 

SP 

FDB 

0 

4093 

00 

00 

PC 

FDB 

0 

4095 

00 

00 

SSP 

FDB 

0 

4097 

00 

00 

OLDPC 

FDB 

0 

4099 

00 


NESTC 

FCB 

0 

409A 

00 


OPCNT 

FCB 

0 

409B 

00 


MODE 

FCB 

0 

409C 

00 


PRON 

FCB 

0 

409D 

00 


TRCF 

FCB 

0 

409E 

00 

00 

FLAGA 

FDB 

0 

40A0 

00 


FLAGB 

FCB 

0 

40A1 

00 


VFLG 

FCB 

0 

40A2 

00 


EAFL 

FCB 

0 

40A3 

00 


NOBKF 

FCB 

0 

40A4 

00 


CFLG 

FCB 

0 

40A5 

00 


NSTRP 

FCB 

0 

40A6 

00 


XFRT 

FCB 

0 

40A7 

00 

00 

STATES 

FDB 

0, 0 

40AB 

00 


ITRF 

FCB 

0 

40AC 

00 

00 

BPPOS 

FDB 

0 

40AE 

00 

00 

BPEND 

FDB 

0 

40B0 

00 


BPCODE 

FCB 

0 

40B1 

00 


BTYP 

FCB 

0 

40B2 

00 

00 

BPAD 

FDB 

0 

40B4 

00 

00 

NXTBP 

FDB 

0 

40B6 

00 

00 

NXTMSG 

FDB 

0 

40B8 

00 


INCOD 

FCB 

0 

40B9 

00 


EQUALS 

FCB 

0 

40BA 

00 

00 

RELADR 

FDB 

0 

40BC 

00 

00 

MARKRG 

FDB 

0 

40BE 

00 

00 

LASTJ 

FDB 

0 

40C0 

00 

00 

NXTPC 

FDB 

0 

40C2 

00 

00 

OPPNT 

FDB 

0 

40C4 

00 

00 

0PPNT2 

FDB 

0 

40C6 

00 

00 

SMEND 

FDB 

0 

40C8 

00 

00 

EXEND 

FDB 

0 

40CA 

00 

00 

WPEND 

FDB 

0 

40CC 

00 

00 

MEND 

FDB 

0 

40CE 

00 

00 

TABE 

FDB 

0 

40D0 

00 

00 

EADR 

FDB 

0 

40D2 

00 

00 

POPTAB 

FDB 

0 

40D4 

00 

00 

OP 

FDB 

0 

40D6 

00 



FCB 

0 

40D7 

00 

00 

OPJMP 

FDB 

0 

40D9 

00 



FCB 

0 

40DA 

00 

00 

BXOP 

FDB 

0 

40DC 

00 



FCB 

0 

40DD 

00 

00 

BX0P2 

FDB 

0 

40DF 

00 



FCB 

0 


* 

* SVSTEM EQUATES 

* 
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0007 

BELL 

EQIJ 

$07 

BELL CHARACTER 

000D 

CR 

EQU 

$0D 

CARRIAGE RETURN 

000A 

LF 

EQIJ 

$0A 

LINE FEED 

0080 

SPC 

EQU 

$80 

SPACE 

3FFF 

STACK 

EQU 

$3FFF 



4100 





ORG 

$4100 






♦ 

* SVSTEM ENTRV 

♦ 



4100 

7E 

41 

IB 

COLDS 

JMP 

COLD 


4103 

7E 

41 

95 

WARMST 

JMP 

WARM 






* SVSTEM CONSTANTS AND JUMP VECTORS 

4106 

7E 

El 

AC] 

GETCHR 

JMP 

$E1AC H>0 

£ L/L) 0 

4109 

7 E 

El 

Dli 

PUTCHR 

JMP 

$E1D1 


410C 

7E 

E0 

D0 

WARMS 

JMP 

$E0D0 


410F [80 04j 


ACIA 

FDB 

$8004 


4111 

08' 



BSP 

FCB 

$08 


4118 

18 



DEL 

FCB 

$18 


4113 

08 



BSE 

FCB 

$08 


4114 

IB 



ESC 

FCB 

$1B 


4115 

FF 

FA 


SWIV 

FDB 

$FFFA 


4117 

FF 

F8 


IRQV 

FDB 

$FFF8 


4119 

FF 

FC 


NMIV 

FDB 

$FFFC 


4107 




INV 

EQU 

GETCHR+1 


410A 




OUTV 

EQU 

PUTCHR+1 


410D 




MONV 

EQU 

WARMS+1 






* 

* COLD 

* 

START ENTRV 


411B 

8E 

3F 

FF 

COLD 

LDS 

#STACK 


411E 

CE 

40 

63 


LDX 

#FIRST 

POINT TO TEMPS 

4181 

6F 

00 


COLDS 

CLR 

0/ X 

CLEAR STORAGE 

4183 

08 




INX 



4184 

8C 

40 

D0 


CPX 

#EADR 

END OF AREA? 

4187 

86 

F8 



BNE 

COLDS 


4189 

CE 

47 

1A 


LDX 

#TRCRET 

SET TEMP CODE 

418C 

FF 

40 

D8 


STX 

OPJMP+1 


418F 

86 

7E 



LDA A 

#$7E 

SET JUMP 

4131 

B7 

40 

D7 


STA A 

OPJMP 


4134 

B7 

40 

DD 


STA A 

BXOPS 


4137 

CE 

47 

3F 


LDX 

#PBRR 

SET CON BRA 

413A 

FF 

40 

DE 


STX 

BX0P8+1 


413D 

86 

39 



LDA A 

#$39 

SET RETURN 

413F 

B7 

40 

DC 


STA A 

BXOP+2 
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4142 

86 

01 




LDR fl 

HI 

SET 

REL BRR 

4144 

B7 

40 

DB 



STR R 

BXOP+1 



4147 

CE 

5B 

00 



LDX 

HOPTRB 

SET 

TABLE 

414R 

FF 

40 

D2 



STX 

POPTRB 



414D 

FF 

40 

C2 



STX 

OPPNT 



4150 

FF 

40 

C4 



STX 

0PPNT2 



4153 

CE 

5F 

00 



LDX 

HAUXTAB 

SET 

POINTER 

4156 

FF 

40 

C4 



STX 

0PPNT2 



4159(CE 

R0 

ZE 



LDX 

#$R07F 

SET 

INITIAL STACK 

415C 

FF 

40 

91 



STX 

SP 



415F 

FF 

40 

81 



STX 

MRXSP 



4162 

CE 

3C 

00 



LDX 

HBPTRB 



4165 

FF 

40 

RE 



STX 

BPEND 



4168 

CE 

3D 

00 



LDX 

HSTRTPC 

SET 

UP TABLES 

416B 

FF 

40 

C0 



STX 

NXTPC 



416E 

CE 

3F 

80 



LDX 

HMSGTB 

SET 

TABLE 

4171 

FF 

40 

B6 



STX 

NXTMSG 



4174 

8D 

06 




BSR 

CLRPR 

CLERR PR TABLES 

4176 

7C 

40 

9B 



INC 

MODE 

SET 

MODE TO 1 

4179 

7E 

41 

95 



JMP 

WARM 







* 

* 

* 

CLERR 

PROTECTION TRBLES 


417C 

CE 

3F 

20 

CLRPR 

LDX 

HEXTRB 

SET 

ALL EMPTY 

417F 

FF 

40 

C8 



STX 

EXEND 



4182 

CE 

3F 

00 



LDX 

HSMTAB 



4185 

FF 

40 

C6 



STX 

SMEND 



4188 

CE 

3F 

40 



LDX 

HWPTRB 



418B 

FF 

40 

CR 



STX 

WPEND 



418E 

CE 

3F 

60 



LDX 

HMTAB 



4191 

FF 

40 

CC 



STX 

MEND 



4194 

39 





RTS 








♦ 

* 

* 

WARM 

START 

ENTRY 



4195 




WARM 

EQU 

* 








* EXECUTIVE 

STARTS HERE 


4195 

8E 

3F 

FF 

EXEC 

LDS 


HSTACK 

SETUP STACK 

4198 

7F 

40 

8R 


CLR 


PRUSF 

CLEAR PAUSE 

419B 

86 

01 



LDA 

A 

#1 

SET NO BREAK 

419D 

B7 

40 

A3 


STR 

A 

NOBKF 


41R0 

B6 

40 

9D 


LDA 

A 

TRCF 

SET TRACE 

41R3 

B7 

40 

9C 


STR 

A 

PRON 


41A6 

CE 

59 

35 


LDX 


HPRMPT 

POINT TO PROMPT 

41A9 

BD 

42 

85 


JSR 


PSTRNG 

OUTPUT IT 

41AC 

BD 

42 

3C 


JSR 


INBUF 

GET INPUT LINE 

41AF 

BD 

43 

7E 

EXEC3 

JSR 


SKPSPC 

SKIP SPACES 
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: is&# 


41B2 

81 

0D 



CMP fl 

#CR 

LONE CARRIAGE RET? 

41B4 

27 

DF 



BEQ 

EXEC 


41B6 

BD 

43 

42 


JSR 

CLASS 

CLASSIFY CHAR 

41B9 

25 

0B 



BCS 

ILIN 

ERROR? 

41BB 

CE 

57 

R8 


LDX 

#COMTBL 

POINT TO TABLE 

41BE 

8D 

13 



BSR 

LKNRM 

LOOK FOR NAME 

41C8 

26 

04 



BNE 

ILIN 

ERROR? 

41C2 

EE 

01 


EXEC6 

LDX 

1, X 

GET COM ADDRESS 

41C4 

6E 

00 



JMP 

0, X 

JUMP TO IT 





* 

* REPORT ILLEGRL INPUT 

* 


41C6 

CE 

59 

3B 

ILIN 

LDX 

#WHATST 

POINT TO STRING 

41C9 

BD 

42 

85 

ILIN2 

JSR 

PSTRNG 

OUTPUT IT 

41CC 

20 

C7 


ILIN4 

BRR 

EXEC 

RESTART 





* 

♦ REPORT SVNTflX ERROR 

* 


41CE 

CE 

59 

F0 

SYNER 

LDX 

#SVNST 

POINT TO STRING 

41D1 

20 

F6 



BRR 

ILIN2 






* 

* LOOK 

>t< 

FOR NAME IN TABLE 


41D3 

FF 

40 

54 

LKNRM 

STX 

INDEX 

SAVE POINTER 

41D6 

FE 

40 

50 

LKNRM2 

LDX 

BUFPNT 

SET POINTER 

41D9 

R6 

00 


LKNRM3 

LDA A 

0, X 

GET A CHARACTER 

41DB 

BD 

43 

42 


JSR 

CLASS 

CLASSIFY IT 

41DE 

25 

4B 



BCS 

LKNRM9 

TERM? 

41E0 

81 

5F 



CMP A 

#$5F 

CHECK IF UPPER CASE 

41E2 

23 

02 



BLS 

LKNAM4 

IT IS 

41E4 

80 

20 



SUB A 

#$20 

MAKE UPPER 

41E6 

FF 

40 

56 

LKNRM4 

STX 

DRTPNT 

SAVE INDEX 

41E9 

FE 

40 

54 


LDX 

INDEX 

RESTORE POINTER 

41EC 

fll 

00 



CMP A 

0t X 

CHECK CHARACTER 

41EE 

26 

2B 



BNE 

LKNAM6 • 


41F0 

08 




INX 


BUMP THE POINTER 

41F1 

FF 

40 

54 


STX 

INDEX 

SAVE INDEX 

41F4 

6D 

00 



TST 

0> X 

CHECK IF END 

41F6 

26 

ID 



BNE 

LKNAM5 


41F8 

FE 

40 

56 

LKNA41 

LDX 

DATPNT 

POINT TO NAME 

41FB 

08 




INX 


BUMP TO NEXT 

41FC 

R6 

00 



LDR A 

0, X 

GET CHARACTER 

41FE 

BD 

43 

42 


JSR 

CLASS 

CLASSIFY IT 

4281 

24 

0D 



BCC 

LKNR45 

TERM? 

4203 

81 

0D 



CMP A 

#CR 

IS IT RETURN? 

4205 

27 

01 



BEQ 

LKNA42 


4207 

08 




INX 


BUMP TO NEXT 

4208 

FF 

40 

50 

LKNA42 

STX 

BUFPNT 

SAVE NEW POSITION 
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420B 

FE 

40 

54 


LDX 

INDEX 

POINT TO TABLE 

420E 

4F 




CLP. R 


SHOW FOUND 

420F 

39 




RTS 


RETURN 

4210 

FE 

40 

54 

LKNR45 

LDX 

INDEX 

RESET POINTER 

4213 

20 

07 



BRR 

LKNAM7 

CONTINUE 

4215 

FE 

40 

56 

LKNRM5 

LDX 

DRTPNT 

RESET POINTER 

4218 

08 




INX 


BUMP THE POINTER 

4219 

20 

BE 



BRR 

LKNRM3 


421B 

08 



LKNRM6 

INX 


BUMP POINTER 

421C 

6D 

00 


LKNRM7 

TST 

0/ X 

END OF WORD? 

421E 

26 

FB 



BNE 

LKNRM6 

REPERT 

4220 

08 




INX 


BUMP PAST RDDRESS 

4221 

08 




INX 



4222 

08 




INX 



4223 

6D 

00 



TST 

0 s X 

END OF TRBLE? 

4225 

26 

RC 



BNE 

LKNflM 

REPERT IF NOT 

422? 

8C 

00 

00 


CPX 

#0000 

SET NE BIT 

422R 

39 



LKNRM8 

RTS 


RETURN 

422B 

09 



LKNRM9 

DEX 


SAVE POINTER 

422C 

FF 

40 

56 


STX 

DRTPNT 


422F 

FE 

40 

54 

LKNR95 

LDX 

INDEX 

POINT TO TRBLE 

4232 

6D 

00 



TST 

0S X 

END OF LIST? 

4234 

27 

C2 



BEQ 

LKNA41 


4236 

08 




INX 


BUMP TO NEXT 

4237 

FF 

40 

54 


STX 

INDEX 


423R 

20 

F3 



BRR 

LKNR95 

REPEAT 





* 

* INPUT 

* 

LINE 

INTO BUFFER 


423C 

CE 

40 

00 

INBUF 

LDX 

#LINBUF 

POINT TO BUFFER 

423F 

FF 

40 

50 


STX 

BUFPNT 

SET POINTER 

4242 

BD 

41 

06 

INBUF2 

JSR 

GETCHR 

GO GET R CHARACTER 

4245 

B1 

41 

12 


CMP fl 

DEL 

IS IT DELETE? 

4248 

27 

1R 



BEQ 

INBUF5 


424R 

B1 

41 

11 


CMP fl 

1 BSP 

IS IT BACK SPACE? 

424D 

27 

1C 



BEQ 

INBUF6 


424F 

81 

0D 



CMP fl 

1 #CR 

IS IT CARRIAGE RET? 

4251 

27 

09 



BEQ 

INBUF4 


4253 

81 

IF 



CMP fl 

1 #$1F 

IS IT CONTROL? 

4255 

23 

EB 



BLS 

INBUF2 

IGNORE IF SO 

4257 

8C 

40 

4F 

INBUF3 

CPX 

#LINBUF+79 

425R 

27 

E6 



BEQ 

INBUF2 


425C 

R7 

00 


INBUF4 

STfl fl 

1 0/ X 

PUT CHAR IN BUFFER 

425E 

08 




INX 


BUMP THE POINTER 

425F 

81 

0D 



CMP fl 

1 #CR 

IS IT RETURN? 

4261 

26 

DF 



BNE 

INBUF2 

REPEAT IF NOT 

4263 

39 




RTS 


RETURN 

4264 

CE 

59 

96 

INBUF5 

LDX 

#DELST 

POINT TO STRING 

4267 

8D 

1C 



BSR 

PSTRNG 

OUTPUT IT 

4269 

20 

D1 



BRR 

INBUF 


426B 

8C 

40 

00 

INBUF6 

CPX 

#LINBUF 

FRONT OF BUFFER? 

426E 

27 

F4 



BEQ 

INBUF5 



PRGE 6 
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4270 

09 




DEX 



DEC THE POINTER 

4271 

B6 

41 

13 


LDA 

A 

BSE 

GET ECHO CHAR 

4274 

81 

08 



CMP 

A 

#8 

IS IT TH ? 

4276 

26 

08 



BNE 


INBU65 


4278 

86 

20 



LDA 

A 

#SPC 

SETUP SPACE 

427A 

BD 

41 

09 


JSR 


PUTCHR 

OUTPUT IT 

427D 

B6 

41 

13 


LDA 

A 

BSE 

GET CHAR 

4280 

BD 

41 

09 

INBU65 

JSR 


PUTCHR 

OUTPUT IT 

4283 

20 

BD 



BRA 


INBUF2 

REPEAT 





* 

* PRINT 

* 

STRING 

AT X 


4285 

8D 

0D 


PSTRNG 

BSR 


PCRLF 

OUTPUT CR & LF 

4287 

A6 

00 


PDATA1 

LDA 

A 

0, X 

GET A CHARACTER 

4289 

81 

04 



CMP 

A 

#4 

IS IT TERM? 

428B 

27 

06 



BEQ 


PDATA2 


428D 

BD 

41 

09 


JSR 


PUTCHR 

GO PUT CHAR. 

4290 

08 




INX 



BUMP THE POINTER 

4291 

20 

F4 



BRA 


PDATA1 

REPEAT IT 

4293 

39 



PDATA2 

RTS 








* 

* PCRLF 

* 

ROUTINE 


4294 

FF 

40 

52 

PCRLF 

STX 


CRSAVE 

SAVE X 

4297 

7D 

40 

8A 


TST 


PRUSF 

PAUSE? 

429A 

26 

1A 



BNE 


WAITR 


429C 

FE 

41 

0F 


LDX 


ACIA 

POINT TO ACIA 

429F 

A6 

00 



LDA 

A 

0, X 

GET STATUS 

42A1 

4€r 




ROR 

A 


CHARACTER? 

42A2 

24 

09 

Pi ^ L 

BCC 


PCRLF2 

GET CHARACTER 

42A4 

R6 

01 

bo 

HI ou 

LDA 

A 

17X 

42A6 

84 

7F 

O l 


AND 

A 

#$7F 

MASK PARITV 

42A8 

B1 

41 

14 


CMP 

A 

ESC 

IS IT ESCAPE? 

42AB 

27 

09 



BEQ 


WAITR 


42AD 

CE 

59 

99 

PCRLF2 

LDX 


#CRLFST 

POINT TO STRING 

42B0 

8D 

D5 



BSR 


PDATA1 

PRINT IT 

42B2 

FE 

40 

52 


LDX 


CRSAVE 

RESTORE X 

42B5 

39 




RTS 



RETURN 





* 

* WRIT FOR RESPONSE 

♦ 


42B6 

FE 

41 

0F 

WAITR 

LDX 


ACIA 

POINT TO ACIA 

42B9 

7F 

40 

8A 


CLR 


PAUSF 

CLEAR FLAG 

42BC 

A6 

00 


WAITR1 

LDA 

A 

0* X 

GET STATUS 

42BE 

,46 




ROR 

A 


CHARACTER? 

42BF 

24 

FB 


R>-/L' 

BCC 


WAITR1 


42C1 

A6 

01 


U A. t>£ 

LDA 

A 

1/ X 

GET CHARACTER 

42C3 

84 

7F 



AND 

A 

#$7F 

MASK PARITV 
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42C5 

B1 

41 

14 

CMP 

A 

ESC 

42C8 

27 

E3 


BEQ 


PCRLF2 

42CA 

81 

03 


CMP 

A 

#*3 

42CC 

27 

04 


BEQ 


WAITR2 

42CE 

81 

0D 


CMP 

A 

#*D 

42D0 

26 

EA 


BNE 


WAITR1 

42D2 

7E 

41 

95 

WAITR2 JMP 


EXEC 


TSC ASSEMBLER 
IS IT ESCAPE? 

IS IT TC? 

IS IT CR? 

RETURN TO EXEC 


* OUTPUT DECIMAL NUMBER AT X 

* 


42D5 

7F 

40 

5A 

OUTDEC 

CLR 


OUTNUM 

42D8 

F7 

40 

5C 


STA 

B 

TEMPI 

42DB 

86 

04 


0UTDE2 

LDA 

A 

#4 

42DD 

B7 

40 

5B 


STA 

A 

TEMP 

42E0 

A6 

00 



LDA 

A 

0, X 

42E2 

E6 

01 



LDA 

B 

1, X 

42E4 

CE 

58 

E3 


LDX 


#CONTBL 

42E7 

8D 

0A 


0UTDE4 

BSR 


OUTDIG 

42E9 

08 




INX 



42EA 

08 




INX 



42EB 

7A 

40 

5B 


DEC 


TEMP 

42EE 

26 

F7 



BNE 


0UTDE4 

42F0 

17 




TBA 



42F1 

20 

42 



BRA 


OUTHR 


CLEAR FLAG 
SET SUP FLAG 
SET COUNTER 
SAVE IT 
GET MSB 
GET LSB 

POINT TO CONSTANTS 
OUTPUT DIGIT 
BUMP TO NEXT CONST. 

DEC THE COUNT 

GET LS DIGIT 
OUTPUT IT 


* OUTPUT DECIMAL DIGIT 

* 


42F3 

7F 

40 

75 

OUTDIG 

CLR 


COUNT 

CLEAR COUNTER 

42F6 

A1 

00 


0UTDI2 

CMP 

A 

0, X 

CHECK MSB 

42F8 

25 

0F 



BLO 


0UTDI5 


42FA 

22 

04 



BHI 


0UTDI4 


42FC 

El 

01 



CMP 

B 

1, X 

COMPARE LSB 

42FE 

25 

09 



BLO 


0UTDI5 


4300 

E0 

01 


0UTDI4 

SUB 

B 

1/ X 

SUB LSB 

4302 

A2 

00 



SBC 

A 

0, X 

SUB MSB 

4304 

7C 

40 

75 


INC 


COUNT 

BUMP COUNTER 

4307 

20 

ED 



BRA 


0UTDI2 

REPEAT 

4309 

36 



0UTDI5 

PSH 

A 


SAVE A 

430A 

B6 

40 

75 


LDA 

A 

COUNT 

GET TOTAL 

430D 

26 

10 



BNE 


0UTDI6 

IS IT ZERO? 

430F 

7D 

40 

5A 


TST 


OUTNUM 

SUPRESS ZEROES? 

4312 

26 

0B 



BNE 


0UTDI6 

NUMBER VET? 

4314 

7D 

40 

5C 


TST 


TEMPI 

NULL OR SPACE? 

4317 

27 

0B 



BEQ 


0UTDI8 


4319 

86 

20 



LDA 

A 

#SPC 

SETUP SPACE 

431B 

8D 

22 



BSR 


0UTHR2 

OUTPUT IT 

431D 

20 

05 



BRA 


0UTDI8 


431F 

7C 

40 

5A 

0UTDI6 

INC 


OUTNUM 

SHOW NUMBER 

4322 

8D 

11 



BSR 


OUTHR 

OUTPUT DIGIT 

4324 

32 



0UTDI8 

PUL 

A 


RESTORE A 
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4325 39 RTS RETURN 

* 

* OUTPUT FOUR HEX DIGITS AT X 

* 

4326 8D 01 OUTADR BSR OUTHEX OUT 2 DIGITS 

4328 08 INX BUMP POINTER 

* 

* OUTPUT HEX DIGIT AT X 

* 


4329 

A6 

00 

OUTHEX 

LDA 

A 

0/ X 

GET MSB 

432B 

8D 

04 


BSR 


OUTHL 

OUTPUT IT 

432D 

A6 

00 


LDA 

A 

0/ X 

DO LSB 

432F 

20 

04 


BRA 


OUTHR 

OUTPUT IT 

4331 

44 


OUTHL 

LSR 

A 


GET MSB TO LSB 

4332 

44 



LSR 

A 



4333 

44 



LSR 

A 



4334 

44 



LSR 

A 



4335 

84 

0F 

OUTHR 

AND 

A 

#$F 

MASK OFF MSB 

4337 

8B 

30 


ADD 

A 

#$30 

ADD IN BIAS 

4339 

81 

39 


CMP 

A 

#'9 

OVER NUMBERS? 

433B 

23 

02 


BLS 


0UTHR2 


433D 

8B 

07 


ADD 

A 

#7 

FINISH BIAS 

433F 

7E 

41 09 

0UTHR2 

JMP 


PUTCHR 

OUTPUT IT 


* 

* CLASSIFY CHARACTER 

* 


4342 

81 

30 

CLASS 

CMP 

A 

#'0 

IS IT 0? 

4344 

25 

14 


BLO 


CLASS2 

REPORT 

4346 

81 

39 


CMP 

A 

#'9 

COMPARE TO 9 

4348 

23 

15 


BLS 


CLASS4 

IS IT NUMBER? 

434A 

81 

41 


CMP 

A 

#'A 

COMPARE TO A 

434C 

25 

0C 


BLO 


CLASS2 

REPORT 

434E 

81 

5A 


CMP 

A 

#'Z 

COMPARE TO Z 

4350 

23 

0D 


BLS 


CLASS4 

IS IT LETTER? 

4352 

81 

61 


CMP 

A 

#'A+$20 

CHECK FOR LOWER 

4354 

25 

04 


BLO 


CLASS2 

REPORT 

4356 

81 

7A 


CMP 

A 

#'Z+$20 

UPPER LIMIT 

4358 

23 

05 


BLS 


CLASS4 


435A 

0D 


CLASS2 

SEC 



SET FOR NOT 

435B 

B7 

40 68 


STA 

A 

LSTTRM 


435E 

39 



RTS 



RETURN 

435F 

0C 


CLASS4 

CLC 



SHOW ALPHANUMERIC 

4360 

39 



RTS 



RETURN 


* 

* GET NEXT CHARACTER FROM BUFFER 
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4361 

FF 

40 

54 

* 

NXTCH 

STX 

INDEX 

SAVE INDEX 

4364 

FE 

40 

50 

NXTCH2 

LDX 

BUFPNT 

GET POINTER 

4367 

A6 

00 


NXTCH3 

LDA A 

0/ X 

GET THE CHARACTER 

4369 

81 

0D 



CMP A 

#CR 

IS IT RETURN? 

436B 

27 

0C 



BEQ 

NXTCH4 


436D 

08 




INX 


BUMP THE POINTER 

436E 

FF 

40 

50 


STX 

BUFPNT 

SAVE NEW POSITION 

4371 

81 

20 



CMP A 

#SPC 

CHECK FOR SPACE 

4373 

26 

04 



BNE 

NXTCH4 


4375 

A1 

00 



CMP A 

Q, X 

NEXT CHAR SPACE? 

4377 

27 

EE 



BEQ 

NXTCH3 

SKIP IF SO 

4379 

FE 

40 

54 

NXTCH4 

LDX 

INDEX 

RESORE INDEX 

437C 

20 

C4 



BRA 

CLASS 

GO CLASSIFY 





* 

* SKIP 

* 

ALL SPACES 


437E 

FF 

40 

52 

SKPSPC 

STX 

CRSAVE 

SAVE INDEX 

4381 

FE 

40 

50 


LDX 

BUFPNT 

GET POINTER 

4384 

A6 

00 


SKPSP2 

LDA A 

0/ X 

GET CHARACTER 

4386 

81 

20 



CMP A 

#SPC 

IS IT SPACE? 

4388 

26 

03 



BNE 

SKPSP4 


438A 

08 




INX 


BUMP TO NEXT 

438B 

20 

F7 



BRA 

SKPSP2 

REPEAT 

438D 

FF 

40 

50 

SKPSP4 

STX 

BUFPNT 

SET POINTER 

4390 

FE 

40 

52 


LDX 

CRSAVE 

RESTORE INDEX 

4393 

39 




RTS 




* 

* PREVIEW NEXT CHARACTER 


* 


4394 

FF 

40 

52 

PRVW 

STX 


CRSAVE 

SAVE X 

4397 

FE 

40 

50 


LDX 


BUFPNT 

POINT TO CHARACTER 

439A 

A6 

00 



LDA 

A 

0/ X 

GET CHARACTER 

439C 

FE 

40 

52 


LDX 


CRSAVE 

RESET X 

439F 

39 




RTS 



RETURN 





* 

* WORK 

* 

IN HEX 

VALUE 


43A0 

37 



WRKHX 

PSH 

B 


SAVE IND 

43A1 

C6 

04 



LDA 

B 

#4 

SET UP COUNT 

43A3 

78 

40 

5E 

WRKHX4 

ASL 


VALUE+1 

SHIFT OVER 4 

43A6 

79 

40 

5D 


ROL 


VALUE 


43A9 

5A 




DEC 

B 


DEC THE COUNT 

43AA 

26 

F7 



BNE 


WRKHX4 

LOOP TIL DONE 

43AC 

33 




PUL 

B 


RESTORE IND 

43AD 

BB 

40 

5E 


ADD 

A 

VALUE+1 


43B0 

B7 

40 

5E 


STA 

A 

VALUE+1 

SET NEW DIGIT 
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w&s. 


43B3 5C INC B SET INDICATOR 

43B4 39 RTS 


* 

* GET HEX VALUE FROM BUFFER 

* 


43B5 

5F 



GETHEX 

CLR 

B 


CLEAR INDICATOR 

43B6 

F7 

40 

5D 


STA 

B 

VALUE 

CLEAR WORK SPACE 

43B9 

F 7 

40 

5E 


STA 

B 

VALUE+1 


43BC 

BD 

43 

61 

GETHE2 

JSR 


NXTCH 

GET CHARACTER 

43BF 

25 

0E 



BCS 


GETHE8 

GRAPHICS? 

43C1 

8D 

11 



BSR 


TSTHEX 

TEST FOR HEX 

43C3 

25 

04 



BCS 


GETHE6 

ERROR? 

43C5 

8D 

D9 



BSR 


WRKHX 


43C7 

28 

F3 



BRA 


GETHE2 


43C9 

BD 

43 

61 

GETHE6 

JSR 


NXTCH 

GET CHARACTER 

43CC 

24 

FB 



BCC 


GETHE6 

WAIT FOR TERM 

43CE 

39 




RTS 



ERROR RETURN 

43CF 

FE 

40 

5D 

GETHE8 

LDX 


VALUE 

GET VALUE 

43D2 

0C 




CLC 



CLEAR ERRORS 

43D3 

39 




RTS 



RETURN 





* 

* TEST 

* 

FOR HEX 

DIGIT 


43D4 

81 

60 


TSTHEX 

CMP 

A 

#$60 

IS IT LOWER? 

43D6 

23 

02 



BLS 

• 

TSTHE1 


43D8 

80 

20 



SUB 

A 

#$20 

MAKE UPPER 

43DA 

80 

47 


TSTHE1 

SUB 

A 

#'G 

REMOVE BIAS 

43DC 

2A 

0E 



BPL 


TSTHE4 


43DE 

8B 

06 



ADD 

A 

#6 

CHECK RANGE 

43E0 

2A 

04 



BPL 


TSTHE2 

ERROR? 

43E2 

8B 

07 



ADD 

A 

#7 

ADD BACK IN 

43E4 

2A 

06 



BPL 


TSTHE4 

ERROR? 

43E6 

8B 

0A 


TSTHE2 

ADD 

A 

#10 

FINAL BIAS 

43E8 

2B 

02 



BMI 


TSTHE4 

ERROR? 

43EA 

0C 



TSTHE3 

CLC 



CLEAR ERRORS 

43EB 

39 




RTS 



RETURN 

43EC 

0D 



TSTHE4 

SEC 



SET ERROR 

43ED 

39 




RTS 



RETURN 


* 

* INPUT DECIMAL NUMBER 

* 


43EE 

7F 

40 

5D 

INDEC 

CLR 

VALUE 

CLEAR WORK 

43F1 

7F 

40 

5E 


CLR 

VALUE+1 


43F4 

5F 




CLR B 


CLEAR COUNTER 

43F5 

BD 

43 

61 

INDEC2 

JSR 

NXTCH 

GET CHARACTER 

43F8 

25 

D5 



BCS 

GETHE8 

TERM? 

43FA 

81 

39 



CMP A 

#'9 

CHECK FOR NUMBER 

43FC 

22 

CB 



BHI 

GETHE6 
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43FE 

84 

0F 



AND 

A 

#SF 

MASK NUMBER 

4400 

37 




PSH 

B 


SAVE COUNT 

4401 

36 




PSH 

A 


SAVE NUMBER 

4402 

B6 

40 

5D 


LDA 

A 

VALUE 

GET VALUE 

4405 

F6 

40 

5E 


LDA 

B 

VALUE+1 


4408 

58 




ASL 

B 


DO TIMES 6 

4409 

49 




ROL 

A 



440A 

58 




ASL 

B 



440B 

49 




ROL 

A 



440C 

58 




RSL 

B 



440D 

49 




ROL 

A 



440E 

78 

40 

5E 


ASL 


VALUE+1 

TIMES 2 

4411 

79 

40 

5D 


ROL 


VALUE 


4414 

FB 

40 

5E 


ADD 

B 

VALUE+1 

ADD IN NEW 

4417 

B9 

40 

5D 


ADC 

A 

VALUE 


441A 

F7 

40 

5E 


STR 

B 

VALUE+1 

SAVE NEW 

441D 

33 




PUL 

B 


GET NUMBER 

441E 

FB 

40 

5E 


ADD 

B 

VALUE+1 


4421 

89 

00 



ADC 

A 

#0 


4423 

F7 

40 

5E 


STR 

B 

VALUE+1 

SAVE RESULT 

4426 

B7 

40 

5D 


STA 

A 

VALUE 


4429 

33 




PUL 

B 


GET COUNT 

442A 

5C 




INC 

B 


BUMP COUNT 

442B 

20 

C8 



BRA 


INDEC2 

REPEAT 





>*e 

* ADD B 

* 

TO > 

< 



442D 

FF 

40 

52 

ADDBX 

STX 


CRSAVE 

PUT INDEX 

4430 

FB 

40 

53 


ADD 

B 

CRSAVE+1 

ADD IN B 

4433 

F7 

40 

53 


STA 

B 

CRSAVE+1 

SAVE NEW 

4436 

24 

03 



BCC 


ADDBX2 


4438 

7C 

40 

52 


INC 


CRSAVE 

BUMP MSB 

443B 

FE 

40 

52 

ADDBX2 

LDX 


CRSAVE 

GET NEW VALUE 

443E 

39 




RTS 



RETURN 





* 

♦ GO SIMULATE 

* 

PROGRAM 


443F 

BD 

4C 

63 

GO 

JSR 


TSTTRM 

CHECK TERM 

4442 

26 

32 



BNE 


SIMUL0 

ERROR? 

4444 

20 

4A 



BRA 


SIMUL2 

GO TO IT! 


4c 

4< JUMP TO ADDRESS 

4« 


4446 

BD 

4C 63 JUMP 

JSR 

TSTTRM 

CHECK TERM 

4449 

27 

2B 

BEQ 

SIMUL0 

ERROR? 

444B 

20 

3B 

BRA 

SIMU15 

GO TO IT! 


4c 
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* LOOK FOR BREAKPOINT 

* 


444D 

CE 

3C 

00 

LKBP 

LDX 


#BPTAB 

POINT TO TABLE 

4450 

BC 

40 

AE 

LKBP3 

CPX 


BPEND 

END OF TABLE? 

4453 

27 

13 



BEQ 


LKBP6 


4455 

A1 

00 



CMP 

A 

0, X 

CHECK ADDRESS 

4457 

26 

05 



BNE 


LKBP4 


4459 

El 

01 



CMP 

B 

1, X 


445B 

26 

01 



BNE 


LKBP4 

MATCH? 

445D 

39 




RTS 
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4720 

B7 

40 

8D 


STR R 

RR 

SAVE fl 

4723 

F7 

40 

8E 


STR B 

BR 

SAVE B 

4726 

FF 

40 

8F 


STX 

XR 

SAVE X 

4729 

BF 

40 

91 


STS 

SP 

SAVE SP 

472C 

BE 

40 

95 


LDS 

SSP 


472F 

39 




RTS 


RETURN 





* 

* PROCESS BSR 

* 



4730 

C6 

FE 


PBSR 

LDR B 

#-2 

SET OFFSET 

4732 

BD 

56 

C3 


JSR 

CHKSP 

CHECK SP CHECK STACK PROT 

4735 

FE 

40 

93 


LDX 

PC 

FIX LAST XFR 

4738 

09 




DEX 



4739 

09 




DEX 



473A 

FF 

40 

BE 


STX 

LRSTJ 

SET ADDRESS 

473D 

8D 

26 



BSR 

PSUBC 






* 

* PROCESS BRfl 

* 



473F 

5F 



PBRR 

CLR B 



4740 

B6 

40 

D5 


LDR fl 

OP+1 

CALCULATE ADDRESS 

4743 

BB 

40 

94 


ADD fl 

PC+1 


4746 

F9 

40 

93 


RDC B 

PC 


4749 

B7 

40 

94 


STR R 

PC+1 

SAVE NEW ADDRESS 

474C 

F7 

40 

93 


STR B 

PC 


474F 

7D 

40 

D5 


TST 

OP+1 


4752 

2A 

03 



BPL 

PBRA4 


4754 

7A 

40 

93 


DEC 

PC 


4757 

39 



PBRR4 

RTS 


RETURN 





* 

* PROCESS CONDITIONAL BRANCH 

* 

4758 

B6 

40 

D4 

PBXX 

LDR fl 

OP 

GET TVPE 

475B 

B7 

40 

Dfl 


STR fl 

BXOP 

SAVE IT 

475E 

B6 

40 

8C 


LDR fl 

CC 


4761 

06 




TAP 



4762 

7E 

40 

DR 


JMP 

BXOP 

DO CON BRANCH 


* 


19 
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* PROCESS SUBROUTINE CALL 


4765 

BF 

40 

95 

PSUBC 

STS 


SSP 

4768 

BE 

40 

91 


LDS 


SP 

476B 

B6 

40 

94 


LDA 

R 

PC+1 

476E 

36 




PSH 

A 


476F 

B6 

40 

93 


LDA 

A 

PC 

4772 

36 




PSH 

A 


4773 

BF 

40 

91 


STS 


SP 

4776 

BE 

40 

95 


LDS 


SSP 

4779 

7C 

40 

99 


INC 


NESTC 

477C 

39 



PSUBC2 

RTS 




SAVE STACK 
PUSH ADDRESS 

SAVE STACK 

SET NEST COUNT 
RETURN 


* PROCESS JSR 

* 


477D 

37 



PJSR 

PSH 

B 


477E 

C6 

FE 



LDA 

B 

#-2 

4780 

BD 

56 

C3 


JSR 


CHKSP 

4783 

33 




PUL 

B 


4784 

Cl 

AD 



CMP 

B 

#SAD 

4786 

27 

16 



BEQ 


PJSRX 

4788 

8D 

DB 



BSR 


PSUBC 





* 

* PROCESS JMP 

* 


478R 

Cl 

6E 


P JMP 

CMP 

B 

#*6E 

478C 

27 

12 



BEQ 


PJMPX 

478E 

FE 

40 

93 


LDX 


PC 

4791 

09 




DEX 



4792 

09 




DEX 



4793 

09 




DEX 



4794 

FF 

40 

BE 


STX 


LASTJ 

4797 

FE 

40 

D5 


LDX 


OP+1 

479A 

FF 

40 

93 


STX 


PC 

479D 

39 




RTS 




SAVE OPCODE 
SET OFFSET 
CHECK SP 
RESTORE B 
IS IT INDEXED? 

DO CALL 


IS IT INDEXED? 
GET PC 

SET LAST XFR 

RETURN 






* PROCESS INDEXED JSR 

* 


' 

479E 

8D 

C5 


PJSRX 

BSR 

PSUBC 



47A0 

FE 

40 

93 

PJMPX 

LDX 

PC 

GET 

PC 

47A3 

09 




DEX 


FIX 

POS 

47A4 

09 




DEX 




47A5 

FF 

40 

BE 


STX 

LASTJ 

SET 

LAST XFR 

47R8 

FE 

40 

8F 


LDX 

XR 



47AB 

FF 

40 

93 


STX 

PC 



47AE 

20 

8F 



BRA 

PBRA 




20 
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* PROCESS RTS INSTRUCTION 

* 


47B0 

C6 

02 

PSUBR 

LDA 

B 

#2 

SET OFFSET 

47B2 

BD 

56 

C3 

JSR 


CHKSP 

CHECK SP 

47B5 

FE 

40 

93 

LDX 


PC 

SET LAST XFR 

47B8 

09 



DEX 




47B9 

FF 

40 

BE 

STX 


LASTJ 

SAVE ADDRESS 

47BC 

BF 

40 

95 

STS 


SSP 


47BF 

BE 

40 

91 

LDS 


SP 


47C2 

32 



PUL 

A 


RESET PC 

47C3 

B7 

40 

93 

STA 

A 

PC 


47C6 

32 



PUL 

A 



47C7 

B7 

40 

94 

STA 

A 

PC+1 


47CA 

BF 

40 

91 

STS 


SP 

SAVE STACK 

47CD 

BE 

40 

95 

LDS 


SSP 


47D0 

7A 

40 

99 

DEC 


NESTC 

FIX NEST COUNT 

47D3 

39 



RTS 






* PUSH REGISTERS ON STACK 

* 


47D4 

77 

40 

89 

PONS 

ASR 


WAITF 

TEST 

WAIT STATUS 

47D7 

25 

2D 



BCS 


P0NS2 



47D9 

C6 

F9 



LDA 

B 

#-7 

SET OFFSET 

47DB 

BD 

56 

C3 


JSR 


CHKSP 

CHECK SP 

47DE 

BF 

40 

95 


STS 


SSP 

SAVE 

STACK 

47E1 

BE 

40 

91 


LDS 


SP 

GET MACHINES 

47E4 

B6 

40 

94 


LDA 

A 

PC+1 

PUSH 

PC 

47E7 

36 




PSH 

A 




47E8 

B6 

40 

93 


LDA 

A 

PC 



47EB 

36 




PSH 

A 




47EC 

B6 

40 

90 


LDA 

A 

XR+1 

PUSH 

X 

47EF 

36 




PSH 

A 




47F0 

B6 

40 

8F 


LDA 

A 

XR 



47F3 

36 




PSH 

A 




47F4 

B6 

40 

8D 


LDA 

A 

AR 

PUSH 

A 

47F7 

36 




PSH 

A 




47F8 

B6 

40 

8E 


LDA 

A 

BR 

PUSH 

B 

47FB 

36 




PSH 

A 




47FC 

B6 

40 

8C 


LDA 

A 

CC 

PUSH 

CC 

47FF 

36 




PSH 

A 




4800 

BF 

40 

91 


STS 


SP 

SAVE 

STACK 

4803 

BE 

40 

95 


LDS 


SSP 

RESTORE 

4806 

39 



P0NS2 

RTS 



RETURN 


* 

* SET INTERUPT MASK 

* 


4807 86 10 


LDA A ##10 


SET MASK 


SEIM 
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4809 

BA 

40 

8C 

ORA 

A 

480C 

B7 

40 

8C 

STA 

A 

480F 

39 



RTS 



* 






* PROCESS SWI 





* 


4810 

8D 

C2 


PSWI 

BSR 

4812 

8D 

F3 



BSR 

4814 

FE 

41 

15 


LDX 

4817 

EE 

00 



LDX 

4819 

FF 

40 

93 

PSWI2 

STX 

481C 

39 



PSWI4 

RTS 


* 

* PROCESS IRQ 

* 


481D 

FE 

40 

7D 

PIRQ 

LDX 


4820 

FF 

40 

7F 


STX 


4823 

86 

10 



LDA 

A 

4825 

B5 

40 

8C 


BIT 

A 

4828 

27 

03 



BEQ 


482A 

7E 

46 

AC 


JMP 


482D 

8D 

A5 


PIRQ1 

BSR 


482F 

8D 

D6 


PIRQ2 

BSR 


4831 

FE 

41 

17 


LDX 


4834 

EE 

00 


PIRQ4 

LDX 


4836 

FF 

40 

93 


STX 


4839 

39 




RTS 






* 







* PROCESS NMI 

* 

483A 

FE 

40 

79 

PNMI 

LDX 


483D 

FF 

40 

7B 


STX 


4840 

8D 

92 



BSR 


4842 

8D 

C3 


PNMI2 

BSR 


4844 

FE 

41 

19 


LDX 


4847 

20 

EB 



BRA 



* 

* PROCESS MAI 

* 


4849 8D 89 PWAI BSR 

484B 86 01 PMAI2 LDA A 

484D B7 40 89 STA A 

4850 39 RTS 


CC OR IT IN 

CC SAVE NEM 

RETURN 


INSTRUCTION 


PONS 

PUSH ALL 

SEIM 

SET MASK 

SWIV 

GET VECTOR 

0 / X 

GET INDIRECT 

PC 

SET IN PC 


RETURN 


IRQC 

RESET COUNTER 

IRQC2 


#$10 

TEST MASK 

CC 


PIRQ1 


TRC015 

GO DO NEXT 

PONS 

ALL ON STACK 

SEIM 

SET MASK 

IRQV 

GET VECTOR 

0 , X 

GET INDIRECT 

PC 

SET NEW PC 


RETURN 


NMIC 

RESET COUNT 

NMIC2 

PONS 

ALL 

ON STACK 

SEIM 

SET 

MASK 

NMIV 

GET 

VECTOR 

PIRQ4 




INSTRUCTION 


PONS PUSH ALL 

#1 SET WAIT FLAG 

WAITF 

RETURN 


* 

* PROCESS RTI INSTRUCTION 
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4851 

C6 

07 


* 

PRTI 

LDA 

B 

#7 

SET OFFSET 

4853 

BD 

56 

C3 


JSR 


CHKSP 

CHECK SP 

4856 

BF 

40 

95 


STS 


SSP 

SAVE STACK 

4859 

BE 

40 

91 


LDS 


SP 

GET MACHINE STACK 

485C 

32 




PUL 

A 


PULL CC 

485D 

B7 

40 

8C 


STA 

A 

CC 


4868 

32 




PUL 

A 


PULL B 

4861 

B7 

40 

8E 


STA 

A 

BR 


4864 

32 




PUL 

A 


PULL A 

4865 

B7 

40 

8D 


STA 

A 

AR 


4868 

32 




PUL 

A 


PULL X 

4869 

B7 

40 

8F 


STA 

A 

XR 


486C 

32 




PUL 

A 



486D 

B7 

40 

90 


STA 

A 

XR+1 


4870 

32 




PUL 

A 


PULL PC 

4871 

B7 

40 

93 


STA 

A 

PC 


4874 

32 




PUL 

A 



4875 

B7 

40 

94 


STA 

A 

PC+1 


4878 

BF 

40 

91 


STS 


SP 

SAVE STACK 

487B 

BE 

40 

95 


LDS 


SSP 

RESTORE 

487E 

39 




RTS 




487F 

CE 

59 

C3 

ILOPTR 

LDX 


#ILOPST 

POINT TO STRING 

4882 

7 E 

45 

3E 


JMP 


SIMUL7 

GO PRINT IT 





* 

* FIND 

* 

OPCODE 

IN TABLE 


4885 

5F 



FNDOP 

CLR 

B 



4886 

B7 

40 

C5 


STA 

A 

0PPNT2+1 

SET POINTER 2 

4889 

48 




ASL 

A 


CALCULATE POSITION 

488A 

59 




ROL 

B 



488B 

48 




ASL 

A 



488C 

59 




ROL 

B 



488D 

BB 

40 

D3 


ADD 

A 

POPTAB+1 

SET POSITION 

4890 

F9 

40 

D2 


ADC 

B 

POPTAB 


4893 

B7 

40 

C3 


STA 

A 

OPPNT+1 

SAVE POSITION 

4896 

F7 

40 

C2 


STA 

B 

OPPNT 


4899 

FE 

40 

C4 


LDX 


0PPNT2 

GET POINTER 

489C 

A6 

00 



LDA 

A 

0, X 

GET CODE 

489E 

B7 

40 

B8 


STA 

A 

INCOD 

SAVE CODE 

48A1 

FE 

40 

C2 


LDX 


OPPNT 

GET POINTER 

48A4 

5F 




CLR 

B 



48A5 

A6 

03 



LDA 

A 

3, X 

GET CODE BVTE 

48A7 

84 

30 



AND 

A 

#$30 

MASK LENGTH 

48A9 

27 

0C 



BEQ 


FND0P4 


48AB 

81 

30 



CMP 

A 

#$30 

IS IT 3? 

48AD 

27 

06 



BEQ 


FND0P2 


48AF 

81 

20 



CMP 

A 

#$20 

IS IT 2? 

48B1 

27 

03 



BEQ 


FNDOP3 


48B3 

20 

02 



BRA 


FND0P4 
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48B5 

5C 



FND0P2 

INC B 


SET LENGTH COUNT 

48B6 

5C 



FND0P3 

INC B 



48B7 

5C 



FND0P4 

INC B 



48B8 

F7 

40 

9R 

FND0P5 

STR B 

OPCNT 

SAVE COUNT 

48BB 

39 



FND0P6 

RTS 


RETURN 





* 

* DUMP 

* 

REGISTERS COMMRND 


48BC 

FE 

40 

93 

DREG 

LDX 

PC 

UPDATE OLD PC 

48BF 

FF 

40 

97 


STX 

OLDPC 


48C2 

8D 

0D 



BSR 

PRREG2 

PRINT REGS 

48C4 

7E 

41 

95 


JMP 

EXEC 

RETURN TO EXEC 





* 

* PRINT 

* 

REGISTERS 


48C7 

B6 

40 

9C 

PRREG 

LDR fl 

PRON 

CHECK TRACE ON 

48CR 

27 

EF 



BEQ 

FNDOP6 


48CC 

B1 

40 

99 


CMP fl 

NESTC 

CHECK NEST LEVEL 

48CF 

23 

ER 



BLS 

FNDOP6 


48D1 

BD 

42 

94 

PRREG2 

JSR 

PCRLF 

PRINT CR & LF 

48D4 

CE 

59 

41 


LDX 

#CCST 

PRINT C CODES 

48D7 

8D 

34 



BSR 

PRRE22 


48D9 

CE 

40 

8C 


LDX 

#CC 


48DC 

BD 

43 

29 


JSR 

OUTHEX 


48DF 

CE 

59 

44 


LDX 

#RST 

PRINT fl 

48E2 

8D 

29 



BSR 

PRRE22 


48E4 

CE 

40 

8D 


LDX 

#AR 


48E7 

BD 

43 

29 


JSR 

OUTHEX 


48ER 

CE 

59 

48 


LDX 

#BST 

PRINT B 

48ED 

8D 

IE 



BSR 

PRRE22 


48EF 

CE 

40 

8E 


LDX 

#BR 


48F2 

BD 

43 

29 


JSR 

OUTHEX 


48F5 

CE 

59 

4C 


LDX 

#XST 

PRINT X 

48F8 

8D 

13 



BSR 

PRRE22 


48FR 

CE 

40 

8F 


LDX 

#XR 


48FD 

BD 

43 

26 


JSR 

OUTRDR 


4900 

CE 

59 

50 


LDX 

#SPST 

PRINT SP 

4903 

8D 

08 



BSR 

PRRE22 


4905 

CE 

40 

91 


LDX 

#SP 


4908 

BD 

43 

26 


JSR 

OUTRDR 


490B 

20 

03 



BRR 

PRRE25 


490D 

7E 

42 

87 

PRRE22 

JMP 

PDRTfll 

PRINT STRING 

4910 

CE 

59 

54 

PRRE25 

LDX 

#PCST 

PRINT PC 

4913 

8D 

F8 



BSR 

PRRE22 


4915 

CE 

40 

93 


LDX 

#PC 


4918 

BD 

43 

26 


JSR 

OUTRDR 


491B 

CE 

59 

58 


LDX 

#NST 

PRINT N 

491E 

8D 

ED 



BSR 

PRRE22 


4920 

CE 

40 

99 


LDX 

#NESTC 


4923 

BD 

43 

29 


JSR 

OUTHEX 
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4926 

7D 

40 

A1 


TST 


VFLG 

PRINT INDIRECTION? 

4929 

27 

0B 



BEQ 


PRREG3 


492B 

CE 

59 

5C 


LDX 


#XVST 

POINT TO STRING 

492E 

8D 

DD 



BSR 


PRRE22 

PRINT IT 

4930 

FE 

40 

8F 


LDX 


XR 

GET ADDRESS 

4933 

BD 

43 

29 


JSR 


OUTHEX 

PRINT CONTENTS 

4936 

7D 

40 

A0 

PRREG3 

TST 


FLAGB 

CHECK FLAG OPT 

4939 

27 

0B 



BEQ 


PRREG4 


493B 

CE 

59 

60 


LDX 


#FMST 

POINT TO STRING 

493E 

8D 

CD 



BSR 


PRRE22 

PRINT IT 

4940 

FE 

40 

9E 


LDX 


FLAGA 

POINT TO MEMORV 

4943 

BD 

43 

26 


JSR 


OUTADR 

PRINT IT 

4946 

8D 

07 


PRREG4 

BSR 


OUTSP 


4948 

8D 

05 



BSR 


OUTSP 


494A 

7E 

4A 

43 


JMP 


DISO 






* 

* OUTPUT SPRCES 

* 


494D 

8D 

00 


0UT2SP 

BSR 


OUTSP 

OUTPUT SPACE 

494F 

86 

20 


OUTSP 

LDA 

A 

#$20 


4951 

7E 

41 

09 


JMP 


PUTCHR 






* 

* PROCESS BREAK POINT 

* 


4954 

FF 

40 

AC 

PRBP 

STX 


BPPOS 

SAVE BP POSITION 

4957 

6D 

02 



TST 


2/ X 

CHECK COUNT 

4959 

2A 

IB 



BPL 


PRBP2 

FORWARDS? 

495B 

6D 

03 



TST 


3, X 

COUNT LEFT? 

495D 

26 

0B 



BNE 


PRBP1 


495F 

A6 

02 



LDA 

A 

2, X 

GET MSB OF COUNT 

4961 

84 

7F 



AND 

A 

#$7F 

MASK DIR BIT 

4963 

26 

05 



BNE 


PRBP1 

IS IT ZERO? 

4965 

BD 

51 

4D 


JSR 


RMVBP 

REMOVE BREAK POINT 

4968 

20 

ID 



BRA 


PRBP3 


496A 

A6 

03 


PRBP1 

LDA 

A 

3/ X 

GET COUNT 

496C 

80 

01 



SUB 

A 

#1 

DEC BV 1 

496E 

A7 

03 



ST A 

A 

3, X 


4970 

24 

18 



BCC 


PRBP4 


4972 

6A 

02 



DEC 


2 / X 

FIX MSB OF COUNT 

4974 

20 

14 



BRA 


PRBP4 


4976 

EE 

02 


PRBP2 

LDX 


2 , X 

GET COUNT 

4978 

27 

10 



BEQ 


PRBP4 


497A 

FE 

40 

AC 


LDX 


BPPOS 

RESTORE POSITION 

497D 

A6 

03 



LDA 

A 

3/ X 

GET COUNT 

497F 

80 

01 



SUB 

A 

#1 

DEC BV 1 

4981 

A7 

03 



STA 

A 

3, X 


4983 

24 

02 



BCC 


PRBP3 


4985 

6A 

02 



DEC 


2 , X 

FIX MSB 

4987 

7E 

44 

FF 

PRBP3 

JMP 


SIMUL6 

RETURN TO SIM 

498A 

FE 

40 

AC 

PRBP4 

LDX 


BPPOS 

RESET POINTER 



PRGE 


£6 
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498D 

R6 

04 



LDR 

R 

4, X 

GET CONDITIONAL 

498F 

16 




TRB 




4990 

27 

4D 



BEQ 


PRB57 

NO CONDITION? 

499£ 

7F 

40 

B9 


CLR 


EQUALS 


4995 

84 

03 



AND 

R 

#$3 

MASK EQURLITV 

4997 

81 

02 



CMP 

R 

#2 

IS IT != 

4999 

26 

03 



BNE 


PRB45 


499B 

73 

40 

B9 


COM 


EQUALS 

SET FOR NOT-EQURL 

499E 

5D 



PRB45 

TST 

B 


CHECK MEM REF 

499F 

2fl 

06 



BPL 


PRB46 


49R1 

EE 

05 



LDX 


5/ X 

GET ADDRESS 

49R3 

6D 

00 



TST 


0/ X 

CHECK IF ZERO 

49R5 

20 

29 



BRR 


PRB495 


49R7 

CE 

58 

F9 

PRB46 

LDX 


#RGTRB 

POINT TO TABLE 

49RR 

57 




RSR 

B 


ADJUST REG SPEC 

49RB 

57 




RSR 

B 



49RC 

57 




RSR 

B 



49RD 

57 




RSR 

B 



49RE 

37 




PSH 

B 


SAVE REG SPEC 

49RF 

5fl 




DEC 

B 



49B0 

27 

05 



BEQ 


PRB475 


49B2 

08 



PRB47 

INX 



FIND IN TABLE 

49B3 

08 




INX 




49B4 

5R 




DEC 

B 


DEC THE COUNT 

49B5 

26 

FB 



BNE 


PRB47 


49B7 

EE 

00 


PRB475 

LDX 


0, X 

GET REG POSITION 

49B9 

33 




PUL 

B 


RESTORE REG SPEC 

49BR 

Cl 

04 



CMP 

B 

#4 

SINGLE BYTE REG? 

49BC 

22 

05 



BHI 


PRB48 


49BE 

4F 




CLR 

R 


CLERR MSB 

49BF 

E6 

00 



LDR 

B 

0, X 

GET VALUE 

49C1 

20 

04 



BRR 


PRB49 


49C3 

R6 

00 


PRB48 

LDR 

fl 

0j X 

GET 2 BYTE VALUE 

49C5 

E6 

01 



LDR 

B 

1/ X 


49C7 

FE 

40 

RC 

PRB49 

LDX 


BPPOS 

RESET POINTER 

49CR 

fil 

05 



CMP 

fl 

5, X 

COMPARE VALUES 

49CC 

26 

0C 



BNE 


PRB55 


49CE 

El 

06 



CMP 

B 

6, X 


49D0 

26 

08 


PRB495 

BNE 


PRB55 


49D2 

7D 

40 

B9 


TST 


EQUALS 

TEST EQUALITY 

49D5 

27 

08 



BEQ 


PRB57 


49D7 

7E 

44 

FF 

PRBP5 

JMP 


SIMUL6 

NO COMPARE 

49DR 

7D 

40 

B9 

PRB55 

TST 


EQUALS 

TEST EQURLITV 

49DD 

27 

F8 



BEQ 


PRBP5 


49DF 

FE 

40 

RC 

PRB57 

LDX 


BPPOS 

POINT TO BP 

49E2 

R6 

07 



LDR 

fl 

7, X 

GET ACTION CODE 

49E4 

B7 

40 

B0 


STR 

R 

BPCODE 

SAVE IT 

49E7 

85 

02 



BIT 

R 

#$2 

PRINT REGISTERS? 

49E9 

27 

03 



BEQ 


PRBP6 


49EB 

BD 

48 

D1 


JSR 


PRREG2 

PRINT REGISTERS 

49EE 

B6 

40 

B0 

PRBP6 

LDR 

fl 

BPCODE 

GET CODE 

49F1 

85 

04 



BIT 

fl 

#$4 

TRACE ON? 

49F3 

27 

08 



BEQ 


PRB62 


49F5 

C6 

FF 



LDR 

B 

#$FF 

SET COUNT 
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49F7 

F7 

40 

9D 


STA 

B 

TRCF 


49FA 

F7 

40 

9C 


STA 

B 

PRON 

SET TRACE ON 

49FD 

85 

08 


PRB62 

BIT 

A 

##8 

TRACE OFF? 

49FF 

27 

06 



BEQ 


PRB65 


4A01 

7F 

40 

9C 


CLR 


PRON 

TRACE OFF 

4A04 

7F 

40 

9D 


CLR 


TRCF 


4A07 

85 

10 


PRB65 

BIT 

A 

##10 

RESET STATE COUNTER? 

4A09 

27 

0C 



BEQ 


PRB68 


4A0B 

CE 

00 

00 


LDX 


#0 

SET UP ZERO 

4A0E 

FF 

40 

A7 


STX 


STATES 

SET STATES 

4A11 

FF 

40 

A9 


STX 


STATES+2 


4A14 

FE 

40 

AC 


LDX 


BPPOS 

RESET POINTER 

4A17 

85 

20 


PRB68 

BIT 

A 

##20 

HISTOGRAM? 

4A19 

27 

09 



BEQ 


PRBP7 


4A1B 

FE 

40 

AC 


LDX 


BPPOS 

RESET POSITION 

4A1E 

6C 

06 



INC 


6/ X 

BUMP COUNTER 

4A20 

26 

02 



BNE 


PRBP7 

CARRV? 

4A22 

6C 

05 



INC 


5/ X 


4A24 

85 

40 


PRBP7 

BIT 

A 

##40 

MESSAGE? 

4A26 

26 

0C 



BNE 


PRB75 


4A28 

85 

80 



BIT 

A 

##80 

JUMP TYPE? 

4A2A 

27 

0D 



BEQ 


PRBP9 


4A2C 

EE 

05 



LDX 


5/ X 

GET TRANSFER ADDRESS 

4A2E 

FF 

40 

93 


STX 


PC 

SET NEW PC 

4A31 

7E 

44 

90 


JMP 


SIMUL2 

GO TRACE 

4A34 

EE 

05 


PRB75 

LDX 


5, X 

GET MSG ADDRESS 

4A36 

BD 

42 

85 


JSR 


PSTRNG 

PRINT MESSAGE 

4A39 

B6 

40 

B0 

PRBP9 

LDA 

A 

BPCODE 

GET CODE 

4A3C 

85 

01 



BIT 

A 

##1 

CHECK FOR HALT 

4A3E 

27 

97 



BEQ 


PRBP5 


4A40 

7E 

41 

95 


JMP 


EXEC 

RETURN TO EXEC 





♦ 

* DISRSSEMBLE 

* 

ONE LINE 


4A43 

FE 

40 

97 

DISO 

LDX 


OLDPC 

GET PC 

4A46 

A6 

00 



LDA 

A 

0, X 

GET OPCODE 

4A48 

BD 

48 

85 


JSR 


FNDOP 

FIND OPERAND 

4A4B 

CE 

40 

97 

DISOl 

LDX 


#OLDPC 

POINT TO PC 

4A4E 

BD 

43 

26 


JSR 


OUTADR 

PRINT IT 

4A51 

BD 

49 

4F 


JSR 


OUTSP 

PRINT SPACE 

4A54 

FE 

40 

C2 


LDX 


OPPNT 

GET POINTER 

4A57 

C6 

03 



LDA 

B 

#3 

SET COUNT 

4A59 

A6 

00 


DIS02 

LDA 

A 

0, X 

GET CHARACTER 

4A5B 

BD 

41 

09 


JSR 


PUTCHR 

OUTPUT IT 

4A5E 

08 




INX 



BUMP TO NEXT 

4A5F 

5A 




DEC 

B 



4A60 

26 

F7 



BNE 


DIS02 


4A62 

BD 

49 

4F 


JSR 


OUTSP 

PRINT SPACE 

4A65 

F6 

40 

B8 


LDA 

B 

INCOD 

GET CODE 

4A68 

17 




TBA 




4A69 

84 

0F 



AND 

A 

##F 

MASK CODE 

4A6B 

27 

13 



BEQ 


DIS04 
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28 


4R6D 

81 

01 



CMP 

fl 

#1 

CHECK FOR R OR B 

4A6F 

27 

08 



BED 


DIS03 


4A71 

81 

02 



CMP 

fl 

#2 

CHECK FOR B 

4A73 

26 

0B 



BNE 


DIS04 


4A75 

86 

42 



LDR 

R 

#'B 

SETUP 'B' 

4877 

20 

02 



BRR 


DIS035 


4R79 

86 

41 


DIS03 

LDR 

fl 

#'R 

SETUP '8' 

4A7B 

BD 

41 

09 

DIS035 

JSR 


PUTCHR 

PRINT IT 

4A7E 

20 

03 



BRR 


DIS045 


4A80 

BD 

49 

4F 

DIS04 

JSR 


OUTSP 

PRINT SPACE 

4A83 

BD 

49 

4F 

DIS045 

JSR 


OUTSP 


4A86 

17 




TBfl 




4A87 

84 

70 



AND 

R 

#$70 

CHECK ADDRESS MODE 

4R89 

27 

IE 



BEQ 


PERR 


4A8B 

81 

10 



CMP 

R 

#$10 

IMMEDIATE? 

4A8D 

26 

22 



BNE 


DIS05 


4A8F 

86 

23 



LDR 

R 

#"# 

OUTPUT '#' 

4A91 

BD 

41 

09 


JSR 


PUTCHR 


4A94 

FE 

40 

97 

DIS047 

LDX 


OLDPC 

GET PC 

4A97 

08 




INX 




4A98 

86 

24 



LDR 

R 

#'$ 

OUTPUT '$' 

4A9fl 

BD 

41 

09 


JSR 


PUTCHR 


4A9D 

F6 

40 

9R 


LDR 

B 

OPCNT 

GET OP LENGTH 

4AA0 

Cl 

02 



CMP 

B 

#2 

IS IT 2? 

4AA2 

27 

08 



BEQ 


PBVTE 


4AA4 

BD 

43 

26 

PRDR 

JSR 


OUTADR 

PRINT ADDRESS 

4AA7 

20 

SB 


PRDR2 

BRR 


DIS07 


4AA9 

FE 

40 

97 

PERR 

LDX 


OLDPC 

POINT TO BVTE 

4ARC 

BD 

43 

29 

PBVTE 

JSR 


OUTHEX 

PRINT BVTE 

4RRF 

20 

53 



BRR 


DIS07 


4RB1 

81 

20 


DIS05 

CMP 

fl 

#$20 

DIRECT? 

4RB3 

27 

DF 



BEQ 


DIS047 


4RB5 

81 

30 


DIS055 

CMP 

fl 

#$30 

INDEXED? 

4RB7 

26 

1R 



BNE 


DIS06 


4RB9 

FE 

40 

97 


LDX 


OLDPC 

GET PC 

4RBC 

R6 

01 



LDR 

R 

1, X 

GET OFFSET 

4RBE 

B7 

40 

5E 


STR 

fl 

VRLUE+1 


4RC1 

5F 




CLR 

B 


CLEAR FLAG 

4RC2 

F7 

40 

5D 


STR 

B 

VALUE 

SET TO ZERO 

4RC5 

CE 

40 

5D 


LDX 


#VALUE 

POINT TO IT 

4RC8 

BD 

42 

D5 


JSR 


OUTDEC 

PRINT OFFSET 

4RCB 

CE 

59 

93 


LDX 


#IXST 

POINT TO STRING 

4RCE 

BD 

42 

87 


JSR 


PDATfll 

PRINT IT 

4RD1 

20 

31 



BRR 


DIS07 


4RD3 

81 

40 


DIS06 

CMP 

R 

#$40 

EXTENDED? 

4RD5 

27 

BD 



BEQ 


DIS047 


4RD7 

81 

60 



CMP 

R 

#$60 


4RD9 

26 

29 



BNE 


DIS07 


4RDB 

FE 

40 

97 


LDX 


OLDPC 

GET PC 

4RDE 

5F 




CLR 

B 



4RDF 

R6 

01 



LDR 

fl 

1, X 

GET OFFSET 

4RE1 

36 




PSH 

fl 


SAVE IT 

4RE2 

08 




INX 



BUMP TO NEW PC 

4RE3 

@8 




INX 
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4AE4 

FF 

40 

BA 


STX 


RELADR 

SAVE ADDRESS 

4AE7 

BB 

40 

BB 


ADD 

A 

RELADR+1 

ADD IN OFFSET 

4AEA 

F9 

40 

BA 


ADC 

B 

RELADR 


4AED 

B7 

40 

BB 


STA 

A 

RELADR+1 

SAVE RESULT 

4AF0 

F7 

40 

BA 


STA 

B 

RELADR 


4AF3 

32 




PUL 

A 


GET OFFSET 

4AF4 

4D 




TST 

A 


IS IT PLUS? 

4AF5 

2A 

03 



BPL 


DIS067 


4AF7 

7A 

40 

BA 


DEC 


RELADR 

ADJUST ADDR. 

4AFA 

86 

24 


DIS067 

LDA 

A 


PRINT 

4AFC 

BD 

41 

09 


JSR 


PUTCHR 


4AFF 

CE 

40 

BA 


LDX 


#RELADR 

POINT TO ADDRESS 

4B02 

20 

A0 



BRA 


PADR 

PRINT IT 

4B04 

F6 

40 

9A 

DIS07 

LDA 

B 

OPCNT 

GET LENGTH 

4B07 

FE 

40 

97 


LDX 


OLDPC 


4B0A 

08 



DIS08 

INX 



BUMP PC 

4B0B 

5A 




DEC 

B 


DEC THE COUNT 

4B0C 

26 

FC 



BNE 


DIS08 


4B0E 

FF 

40 

97 


STX 


OLDPC 

FIX PC 

4B11 

39 




RTS 



RETURN 





* 

* CHECK 

* 

PROTECTION TABLE 

S 

4B12 

B6 

40 

93 

PRCH 

LDA 

A 

PC 

GET PC 

4B15 

F6 

40 

94 


LDA 

B 

PC+1 


4B18 

FE 

40 

C8 


LDX 


EXEND 

SET TAB END 

4B1B 

FF 

40 

CE 


STX 


TABE 


4B1E 

CE 

3F 

20 


LDX 


#EXTAB 

POINT TO EX TABLE 

4B21 

8D 

54 



BSR 


CHECK 

GO CHECK ENTRV 

4B23 

26 

05 



BNE 


PRCH2 

FOUND? 

4B25 

CE 

59 

FD 


LDX 


#EXPST 

POINT TO STRING 

4B28 

20 

0A 



BRA 


PRCH3 


4B2A 

B6 

40 

93 

PRCH2 

LDA 

A 

PC 

GET PC 

4B2D 

8D 

3F 



BSR 


MPR 

CHECK MEM PROT 

4B2F 

26 

0F 



BNE 


PRCH4 

FOUND? 

4B31 

CE 

5A 

15 


LDX 


#MMP1ST 

POINT TO STRING 

4B34 

BD 

42 

85 

PRCH3 

JSR 


PSTRNG 

PRINT IT 

4B37 

CE 

40 

93 


LDX 


#PC 

POINT TO PC 

4B3A 

BD 

43 

26 


JSR 


OUTADR 

PRINT ADDRESS 

4B3D 

7E 

41 

95 


JMP 


EXEC 

RETURN TO EXEC 

4B40 

BD 

4B 

9D 

PRCH4 

JSR 


CEA 

FIND E. A. 

4B43 

25 

57 



BCS 


CHECK6 

FOUND? 

4B45 

B6 

40 

D0 


LDA 

A 

EADR 

GET ADDRESS 

4B48 

F6 

40 

D1 


LDA 

B 

EADR+1 


4B4B 

7D 

40 

B8 


TST 


INCOD 

WRITE CODE? 

4B4E 

2A 

12 



BPL 


PRCH5 


4B50 

FE 

40 

CA 


LDX 


WPEND 

SET TABLE END 

4B53 

FF 

40 

CE 


STX 


TABE 


4B56 

CE 

3F 

40 


LDX 


#WPTAB 

POINT TO WP TABLE 

4B59 

8D 

1C 



BSR 


CHECK 

GO CHECK ENTRV 

4B5B 

26 

05 



BNE 


PRCH5 

FOUND? 

4B5D 

CE 

5A 

09 


LDX 


#WPST 

POINT TO STRING 


29 
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4B60 

20 

D2 



BRA 


PRCH3 


4B62 

B6 

40 

D0 

PRCH5 

LDA 

A 

EADR 

GET ADDRESS 

4B65 

8D 

07 



BSR 


MPR 

CHECK MEM PROT 

4B67 

26 

33 



BNE 


CHECK6 

FOUND? 

4B69 

CE 

5A 

26 


LDX 


#MMP2ST 

POINT TO STRING 

4B6C 

20 

C6 



BRA 


PRCH3 






* 

* CHECK 

* 

MEMORV 

PROTECT 

TABLE 

4B6E 

FE 

40 

CC 

MPR 

LDX 


MEND 

SET END 

4B71 

FF 

40 

CE 


STX 


TABE 


4B74 

CE 

3F 

60 


LDX 


#MTAB 

POINT TO TABLE 





+ 

* CHECK 

* 

FOR 

ADDRESS IN 

PR TABLE 

4B77 

BC 

40 

CE 

CHECK 

CPX 


TABE 

END OF TABLE? 

4B7A 

27 

IE 



BEQ 


CHECKS 


4B7C 

A1 

00 



CMP 

A 

0, X 

CHECK 1ST ENTRV 

4B7E 

25 

14 



BLO 


CHECK4 


4B80 

22 

06 



BHI 


CHECK2 


4B82 

El 

01 



CMP 

B 

1, X 


4B84 

25 

0E 



BLO 


CHECK4 


4B86 

27 

0A 



BEQ 


CHECKS 


4B88 

A1 

02 


CHECK2 

CMP 

A 

2> X 

CHECK 2ND ENTRV 

4B8A 

22 

08 



BHI 


CHECK4 


4B8C 

25 

04 



BLO 


CHECK3 


4B8E 

El 

03 



CMP 

B 

3, X 


4B90 

22 

02 



BHI 


CHECK4 


4B92 

4F 



CHECK3 

CLR 

A 


SHOW FOUND 

4B93 

39 




RTS 



RETURN 

4B94 

08 



CHECK4 

INX 



MOVE TO NEXT 

4B95 

08 




INX 




4B96 

08 




INX 




4B97 

08 




INX 




4B98 

20 

DD 



BRA 


CHECK 

REPEAT 

4B9A 

86 

01 


CHECK5 

LDA 

A 

#1 

SHOW NO FIND 

4B9C 

39 



CHECK6 

RTS 



RETURN 


* 

* CALCULATE EFFECTIVE ADDRESS 

* 


4B9D 

B6 

40 

B8 CEA 

LDA 

A 

INCOD 

GET CODE 

4BA0 

84 

70 


AND 

A 

#$70 

MASK BITS 

4BA2 

81 

10 


CMP 

A 

#$10 

CHECK TVPES 

4BA4 

23 

3E 


BLS 


CEA6 


4BA6 

81 

50 


CMP 

A 

#$50 


4BA8 

24 

3A 


BHS 


CEA6 


4BAA 

7F 

40 

D0 

CLR 


EADR 

ZERO E. A. AREA 

4BAD 

7F 

40 

D1 

CLR 


EADR+1 



30 
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4BB0 

B7 

40 

A2 


STA 

A 

4BB3 

FE 

40 

93 


LDX 


4BB6 

81 

40 



CMP 

A 

4BB8 

27 

19 



BEQ 


4BBA 

81 

20 



CMP 

A 

4BBC 

27 

IB 



BEQ 


4BBE 

A6 

01 



LDA 

A 

4BC0 

FE 

40 

8F 


LDX 


4BC3 

FF 

40 

D0 


STX 


4BC6 

BB 

40 

D1 


ADD 

A 

4BC9 

B7 

40 

D1 


STA 

A 

4BCC 

24 

14 



BCC 


4BCE 

7C 

40 

D0 


INC 


4BD1 

20 

0F 



BRA 


4BD3 

A6 

01 


CEA2 

LDA 

A 

4BD5 

E6 

02 



LDA 

B 

4BD7 

20 

03 



BRA 


4BD9 

4F 



CEA3 

CLR 

A 

4BDA 

E6 

01 



LDA 

B 

4BDC 

B7 

40 

D0 

CEA4 

STA 

A 

4BDF 

F7 

40 

D1 


STA 

B 

4BE2 

0C 



CEA5 

CLC 


4BE3 

39 




RTS 


4BE4 

0D 



CEA6 

SEC 


4BE5 

39 




RTS 



EAFL 

SET FLAG 

PC 

GET PC 

#$40 

EXTENDED? 

CEA2 

#$20 

DIRECT? 

CEA3 

1/ X 

INDEXED 

XR 

GET INDEX REG 

EADR 

SAVE VALUE 

EADR+1 

ADD IN OFFSET 

EADR+1 

SAVE RESULT 

CEA5 

EADR 

CEA5 

1/ X 

GET EXT ADDRES 

2, X 

CEA4 

1/ X 

CLEAR FOR DIREC - 
GET ADDRESS 

EADR 

SET ADDRESS 

EADR+1 

SHOW ADDRESS 
RETURN 

SHOW NO ADDRESS 


4BE6 

4BE9 

4BEC 

4BEF 

4BF2 

4BF4 

4BF7 

4BF9 

4BFC 

4BFF 

4C02 

4C05 

4C08 

4C0B 


4C0E 

09 



4C0F 

FF 

40 

87 

4C12 

26 

EE 


4C14 

BD 

48 

D1 

4C17 

BD 

41 

06 

4C1A 

81 

0D 


4C1C 

27 

09 


4C1E 

81 

20 


4C20 

26 

F5 


4C22 

B7 

40 

A3 


JSR 


PCRLF 

LDX 


#1 

STX 


STPCNT 

JSR 


TSTTRM 

BEQ 


SSM1 

JSR 


INDEC 

BCS 


EQVAL2 

STX 


STPCNT 

LDX 


STPCNT 

STX 


SIMCNT 

JSR 


TRCOL 

LDX 


PC 

STX 


OLDPC 

LDX 


SIMCNT 

DEX 



STX 


SIMCNT 

BNE 


SSM15 

JSR 


PRREG2 

JSR 


GETCHR 

CMP 

A 

#$D 

BEQ 


SSM2 

CMP 

A 

#$20 

BNE 


SSM3 

STA 

A 

NOBKF 


PRINT CR & LF 
SET DEFAULT 

CHECK TERM 

GET COUNT 
ERROR? 

SET COUNT 
RESET COUNTER 

TRACE ONE LINE 
RESET PC 

GET COUNTER 
DEC BV 1 
SAVE NEW 

PRINT REGS 
GET CHARACTER 
IS IT CR? 

IS IT SPACE? 

SET NO BREAK 


* 

* SET SINGLE STEP MODE 

* 


BD 

42 

94 

SSM 

CE 

00 

01 


FF 

40 

85 


BD 

4C 

63 


27 

08 



BD 

43 

EE 


25 

3B 



FF 

40 

85 


FE 

40 

85 

SSM1 

FF 

40 

87 


BD 

# 

8E 

SSM15 

FE 

48 

93 


FF 

40 

97 


FE 

40 

87 
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4C25 20 D5 
4C2? 7E 41 95 


SSM2 


BRA SSM1 
JMP EXEC 


RETURN TO EXEC 


* CHECK EQUALS VALUE 


4C2A 8D 31 
4C2C 26 06 
4C2E BD 43 EE 
4C31 25 01 
4C33 39 
4C34 7E 41 CE 


EQVRL 

6NE 

JSR 

BCS 

RTS 

EQVAL2 JMP 


TSTEQ 

EQVAL2 

INDEC 

EQVAL2 

SVNER 


TEST FOR EQUALS 

error? 
get COUNT 
error? 

REPORT ERROR 


* CHECK HEX EQUALS VALUE 


4C37 8D 24 
4C39 26 F9 
4C3B BD 43 B5 
4C3E 25 F4 
4C40 39 


heqval BSR 
BNE 
JSR 
BCS 
RTS 


TSTEQ 

EQVAL2 

gethex 

EQVAL2 


CHECK FOR EQUALS 

error? 

GET HEX VALUE 

error? 

RETURN 


* SET INSTRUCTION COUNT TRAP 


* 


4C41 8D E7 
4C43 7F 40 A4 
4C46 FF 40 75 
4C49 FF 40 77 
4C4C 27 03 
4C4E 7C 40 A4 
4C51 20 04 


INST 


INST2 


* SET 

* 


4C53 8D D5 
4C55 B6 40 5E 
4C58 B7 40 A5 
4C5B 20 F4 


NEST 


BSR 

EQVAL 

CLR 

CFLG 

STX 

COUNT 

STX 

MAXC 

BEQ 

INST2 

INC 

CFLG 

BRA 

SSM2 


NEST TRAP 

BSR 

EQVAL 

LDA 

fl VALUE+i 

STR 

A NSTRP 

BRA 

INST2 


TEST VALUE 
CLEAR FLAG 
SAVE COUNT 
SET VALUE 
IS IT ZERO? 
SET MODE 
RETURN 


test VALUE 
get value 

SAVE COUNT 


t TEST FOR EQUALS 
* 


4C5D B6 40 68 TSTEQ 
4C60 81 3D 
4C62 39 


LDA A LSTTRM 
CMP A #' = 

RTS 


CHECK TERM 
IS IT EQUALS? 
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* TEST TERMINATOR 

* 


4C63 

B6 

40 

68 

TSTTRM 

LDA A 

LSTTRM 

GET TERM 

4C66 

81 

0D 



CMP A 

#$D 

IS IT CR? 

4C68 

39 




RTS 


RETURN 





* 

* TEST 

* 

FOR ON 

OR OFF 


4C69 

8D 

F2 


TSTON 

BSR 

TSTEQ 

TEST FOR EQUALS 

4C6B 

26 

C7 



BNE 

EQVAL2 

ERROR? 

4C6D 

BD 

43 

61 


JSR 

NXTCH 

GET CHARACTER 

4C70 

84 

5F 



AND A 

#$5F 

MAKE UPPER 

4C72 

81 

4F 



CMP A 

#'0 

IS IT "O'? 

4C74 

26 

BE 



BNE 

EQVAL2 

ERROR? 

4C76 

BD 

43 

61 


JSR 

NXTCH 

GET CHARACTER 

4C79 

84 

5F 



AND A 

#$5F 


4C7B 

81 

4E 



CMP A 

#'N 

IS IT 'N'? 

4C7D 

39 




RTS 


RETURN 





* 

* PRINT 

* 

TRAIL 

REGISTER 


4C7E 

CE 

59 

El 

TRAIL 

LDX 

#TRST 

POINT TO STRING 

4C81 

BD 

42 

85 


JSR 

PSTRNG 

PRINT IT 

4C84 

CE 

40 

BE 


LDX 

#LASTJ 

GET VALUE 

4C87 

BD 

43 

26 


JSR 

OUTADR 

PRINT IT 

4C8A 

26 

C5 



BRA 

INST2 

RETURN 





* 

* PRINT 

* 

PAST EXECUTION 

INSTRUCTIONS 

4C8C 

BD 

42 

94 

PAST 

JSR 

PCRLF 

PRINT CR & LF 

4C8F 

7F 

40 

67 


CLR 

CNTR 

CLEAR COUNT 

4C92 

BD 

4C 

63 


JSR 

TSTTRM 

TEST TERM 

4C95 

27 

0B 



BEQ 

PAST2 


4C97 

BD 

43 

EE 


JSR 

INDEC 

INPUT COUNT 

4C9A 

25 

3E 



BCS 

PAST6 


4C9C 

B6 

40 

5E 


LDA A 

VALUE+1 

GET VALUE 

4C9F 

B7 

40 

67 


STA A 

CNTR 

SET COUNT 

4CA2 

FE 

40 

C0 

PAST2 

LDX 

NXTPC 

GET POSITION 

4CA5 

8C 

3D 

00 

PAST25 

CPX 

tSTRTPC 

TABLE BEGINNING? 

4CA8 

26 

03 



BNE 

PAST3 


4CAA 

CE 

3F 

00 


LDX 

#ENDPC 

RESET POINTER 

4CAD 

09 



PAST3 

DEX 


MOVE BACK ONE INST 

4CAE 

09 




DEX 



4CAF 

7A 

40 

67 


DEC 

CNTR 

DEC THE COUNT 

4CB2 

26 

FI 



BNE 

PAST25 


4CB4 

FF 

40 

61 

PAST4 

STX 

P0INT2 

SACE POSITION 

4CB7 

EE 

00 



LDX 

0, X 

GET ADDRESS 


33 
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4CB9 

FF 

40 

97 


STX 

OLDPC 

4CBC 

BD 

42 

94 


JSR 

PCRLF 

4CBF 

BD 

4A 

43 


JSR 

DISO 

4CC2 

FE 

40 

61 


LDX 

POINTS 

4CC5 

08 




I NX 


4CC6 

08 




I NX 


4CC7 

8C 

3F 

00 


CPX 

#ENDPC- 

4CCA 

26 

03 



BNE 

PAST5 

4CCC 

CE 

3D 

00 


LDX 

#STRTPC 

4CCF 

BC 

40 

C0 

PAST5 

CPX 

NXTPC 

4CD2 

26 

E0 



BNE 

PAST 4 

4CD4 

BD 

42 

94 


JSR 

PCRLF 

4CD7 

7E 

41 

95 


JMP 

EXEC 

4CDA 

7E 

41 

CE 

PAST6 

JMP 

SYNER 


SET PC 

PRINT CR & LF 
DISASSEMBLE 
GET POINTER 
MOVE TO NEXT 

END OF TABLE? 

RESET POINTER 

FINISHED? 

REPEAT 

PRINT CR & LF 
RETURN 

REPORT ERROR 


* GET ADDRESS RANGE 

* 


4CDD 

BD 

43 

B5 

GETRNG 

JSR 

GETHEX 

GET ADDRESS 

4CE0 

25 

2E 



BCS 

PR0T3 

ERROR? 

4CE2 

FF 

40 

63 


STX 

FIRST 

SAVE VALUE 

4CE5 

FF 

40 

65 


STX 

LAST 


4CE8 

BD 

43 

94 


JSR 

PRVW 

CHECK CHARACTER 

4CEB 

BD 

43 

D4 


JSR 

TSTHEX 

IS IT HEX? 

4CEE 

25 

08 



BCS 

GETRN2 


4CF0 

BD 

43 

B5 


JSR 

GETHEX 

GET NEXT ADDRESS 

4CF3 

25 

IB 



BCS 

PROT3 


4CF5 

FF 

40 

65 


STX 

LAST 

SAVE VALUE 

4CF8 

39 



GETRN2 

RTS 


RETURN 


* 

* SET PROTECTION FIELDS 

* 


4CF9 

8D 

E2 


PROT 

BSR 


GETRNG 

GET ADDRESSES 

4CFB 

BD 

43 

61 

PR0T2 

JSR 


NXTCH 

GET CHARACTER 

4CFE 

84 

5F 



AND 

A 

#$5F 

MAKE UPPER C 

4D00 

81 

58 



CMP 

A 

#'X 

IS IT EX? 

4D02 

27 

IE 



BEQ 


PR0T4 


4D04 

81 

57 



CMP 

A 

#'W 

IS IT HP? 

4D06 

27 

29 



BEQ 


PR0T5 


4D08 

81 

4D 



CMP 

A 

#'M 

IS IT MEM? 

4D0A 

27 

34 



BEQ 


PROT 6 


4D0C 

81 

53 



CMP 

A 

#"S 

IS IT SIM P? 

4D0E 

27 

03 



BEQ 


PR0T35 


4D10 

7E 

41 

CE 

PR0T3 

JMP 


SYNER 

REPORT ERROR 

4D13 

FE 

40 

C6 

PR0T35 

LDX 


SMEND 

GET END POINTER 

4D16 

8C 

3F 

20 


CPX 


#EXTAB 

FULL? 

4D19 

27 

3C 



BEQ 


PR0T8 


4D1B 

8D 

40 



BSR 


SETV 

SET VALUES 

4D1D 

FF 

40 

C6 


STX 


SMEND 

SAVE END 

4D20 

20 

SB 



BRA 


PR0T7 


4D22 

FE 

40 

CS 

PROT 4 

LDX 


EXEND 

GET END POINTER 


PAGE 
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4D25 

8C 

3F 

40 


CPX 


#WPTAB 

FULL? 

4D28 

27 

2D 



BEQ 


PR0T8 


4D2A 

8D 

31 



BSR 


SETV 

SET VALUES 

4D2C 

FF 

40 

C8 


STX 


EXEND 

SAVE END 

4D2F 

20 

1C 



BRA 


PR0T7 


4D31 

FE 

40 

CA 

PR0T5 

LDX 


WPEND 

GET END P 

4D34 

8C 

3F 

60 


CPX 


#MTAB 

FULL? 

4D37 

27 

IE 



BEQ 


PROT8 


4D39 

8D 

22 



BSR 


SETV 

SET VALUES 

4D3B 

FF 

40 

CA 


STX 


WPEND 

SAVE END 

4D3E 

20 

0D 



BRA 


PR0T7 


4D40 

FE 

40 

CC 

PR0T6 

LDX 


MEND 

GET END P 

4D43 

8C 

3F 

80 


CPX 


#MSGTB 

FULL? 

4D46 

27 

0F 



BEQ 


PR0T8 


4D48 

8D 

13 



BSR 


SETV 

SET VALUES 

4D4A 

FF 

40 

CC 


STX 


MEND 

SAVE END 

4D4D 

BD 

43 

61 

PR0T7 

JSR 


NXTCH 

GET NEXT CHAR 

4D50 

BD 

4C 

63 


JSR 


TSTTRM 

IS IT TERM? 

4D53 

26 

A4 



BNE 


PROT 

REPEAT? 

4D55 

20 

28 



BRA 


CM0D35 


4D57 

CE 

5A 

44 

PR0T8 

LDX 


#TBLOV 

POINT TO STRING 

4D5A 

7E 

41 

C9 


JMP 


ILIN2 

GO PRINT IT 





♦ 

* SET VflLUES 

* 



4D5D 

B6 

40 

63 

SETV 

LDA 

A 

FIRST 

GET FIRST 

4D60 

F6 

40 

64 


LDA 

B 

FIRST+1 


4D63 

8D 

06 



BSR 


STRIT 

GO STORE 

4D65 

B6 

40 

65 


LDA 

A 

LAST 

GET LAST 

4D68 

F6 

40 

66 


LDA 

B 

LAST+1 






* 

* STORE 

* 

VALUES 



4D6B 

A7 

00 


STRIT 

STA 

A 

0/ X 

SAVE CHARACTER 

4D6D 

E7 

01 



STA 

B 

Is X 


4D6F 

08 




INX 



BUMP POINTER 

4D70 

08 




INX 




4D71 

39 




RTS 



RETURN 





* 

* SET MODE 

♦ 




4D72 

BD 

4C 

2A 

CMODE 

JSR 


EQVAL 

GET VALUE 

4D75 

B6 

40 

5E 


LDA 

A 

VALUE+1 

GET VALUE 

4D78 

81 

01 



CMP 

A 

#1 

CHECK RANGE 

4D7A 

22 

06 



BHI 


CM0DE4 


4D7C 

B7 

40 

9B 

CM0DE3 

STA 

A 

MODE 

SET MODE 

4D7F 

7E 

41 

95 

CM0D35 

JMP 


EXEC 

RETURN 

4D82 

7E 

41 

CE 

CM0DE4 

JMP 


SVNER 

REPORT ERROR 
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* 

* PRINT PROTECTION BOUNDS 

* 


4D85 

BD 

4C 

63 

BOUNDS 

JSR 


TSTTRM 

TEST TERM CHAR 

4D88 

26 

16 



BNE 


B0UND2 


4D8R 

BD 

42 

94 


JSR 


PCRLF 

PRINT CR & LF 

4D8D 

8D 

55 



BSR 


BOUNDX 

PRINT X TRB 

4D8F 

BD 

42 

94 


JSR 


PCRLF 

DO CR & LF 

4D92 

8D 

60 



BSR 


BOUNDW 

PRINT W TAB 

4D94 

BD 

42 

94 


JSR 


PCRLF 

CR & LF 

4D97 

8D 

6B 



BSR 


BOUNDM 

PRINT M TRB 

4D99 

BD 

42 

94 


JSR 


PCRLF 


4D9C 

8D 

36 



BSR 


BOUNS 

PRINT S TRB 

4D9E 

20 

2E 



BRR 


BOUNDS 


4DR0 

BD 

42 

94 

B0UND2 

JSR 


PCRLF 

PRINT CR & LF 

4DR3 

BD 

43 

61 


JSR 


NXTCH 

GET NEXT CHRRRCTER 

4DR6 

84 

5F 



RND 

R 

#$5F 

MRSK TO UPPER 

4DR8 

81 

53 



CMP 

R 

#'S 

IS IT SIM P? 

4DRR 

27 

0F 



BEQ 


B0UN35 


4DRC 

81 

58 



CMP 

fl 

#'X 

IS IT EX? 

4DRE 

27 

0F 



BED 


B0UND4 


4DB0 

81 

57 



CMP 

R 

#'W 

IS IT WP? 

4DB2 

27 

0F 



BEQ 


BOUNDS 


4DB4 

81 

4D 



CMP 

R 

#'M 

IS IT MEM P? 

4DB6 

27 

0F 



BEQ 


B0UND6 


4DB8 

7E 

41 

CE 

B0UND3 

JMP 


SVNER 

REPORT ERROR 

4DBB 

8D 

17 


B0UN35 

BSR 


BOUNS 

PRINT S 

4DBD 

20 

0fl 



BRR 


BOUND7 


4DBF 

8D 

23 


B0UND4 

BSR 


BOUNDX 

PRINT X 

4DC1 

20 

06 



BRR 


BOUND7 


4DC3 

8D 

2F 


B0UND5 

BSR 


BOUNDW 

PRINT W 

4DC5 

20 

02 



BRR 


BOUND7 


4DC7 

8D 

3B 


BOUNDS 

BSR 


BOUNDM 

PRINT M 

4DC9 

BD 

4C 

63 

B0UND7 

JSR 


TSTTRM 

TEST TERM 

4DCC 

26 

D2 



BNE 


B0UND2 

REPEAT? 

4DCE 

BD 

42 

94 

B0UND8 

JSR 


PCRLF 

PRINT CR & LF 

4DD1 

7E 

41 

95 


JMP 


EXEC 

RETURN 

4DD4 

CE 

5R 

68 

BOUNS 

LDX 


#SMPST 

POINT TO STRING 

4DD7 

8D 

59 



BSR 


PBPRT 


4DD9 

FE 

40 

C6 


LDX 


SMEND 

SET END POINT 

4DDC 

FF 

40 

CE 


STX 


TfiBE 


4DDF 

CE 

3F 

00 


LDX 


#SMTRB 

POINT TO TABLE 

4DE2 

20 

2E 



BRR 


PRTB 

PRINT TABLE 

4DE4 

CE 

5R 

59 

BOUNDX 

LDX 


#XPST 

POINT TO STRING 

4DE7 

8D 

49 



BSR 


PBPRT 


4DE9 

FE 

40 

C8 


LDX 


EXEND 

SET END POINTER 

4DEC 

FF 

40 

CE 


STX 


TRBE 


4DEF 

CE 

3F 

20 


LDX 


#EXTRB 

POINT TO TRBLE 

4DF2 

20 

IE 



BRR 


PRTB 

PRINT TABLE 

4DF4 

CE 

5R 

53 

BOUNDW 

LDX 


#WPRST 

POINT TO STRING 

4DF7 

8D 

39 



BSR 


PBPRT 


4DF9 

FE 

40 

CR 


LDX 


WPEND 

SET END P 
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4DFC 

FF 

40 

CE 


STX 


TABE 


4DFF 

CE 

3F 

40 


LDX 


#WPTRB 

POINT TO TABLE 

4E02 

20 

0E 



BRA 


PRTB 

PRINT TABLE 

4E04 

CE 

5R 

61 

BOUNDM 

LDX 


#MPST 

POINT TO STRING 

4E07 

8D 

29 



BSR 


PBPRT 


4E09 

FE 

40 

CC 


LDX 


MEND 

SET END 

4E0C 

FF 

40 

CE 


STX 


TABE 


4E0F 

CE 

3F 

60 


LDX 


#MTAB 

POINT TO TABLE 





He 

* PRINT 

* 

PROT 

TABLE 


4E12 

BD 

42 

94 

PRTB 

JSR 


PCRLF 

PRINT CR & LF 

4E15 

BC 

40 

CE 

PRTB1 

CPX 


TABE 

END OF TABLE? 

4E18 

27 

15 



BEQ 


PRTB2 


4E1R 

BD 

42 

94 


JSR 


PCRLF 

PRINT CR & LF 

4E1D 

BD 

49 

4D 


JSR 


0UT2SP 


4E20 

BD 

43 

26 


JSR 


OUTADR 

PRINT ADDRESS 

4E23 

08 




INX 



BUMP POINTER 

4E24 

86 

2D 



LDR 

A 


OUTPUT 

4E26 

BD 

41 

09 


JSR 


PUTCHR 


4E29 

BD 

43 

26 


JSR 


OUTADR 

PRINT ADDRESS 

4E2C 

08 




INX 



BUMP TO NEXT 

4E2D 

20 

E6 



BRA 


PRTB1 

REPEAT 

4E2F 

7E 

43 

61 

PRTB2 

JMP 


NXTCH 

GET NEXT CHAR 





* 

* PRINT 

* 

PROTECTION STRING 

4E32 

BD 

42 

85 

PBPRT 

JSR 


PSTRNG 

PRINT STRING 

4E35 

CE 

5fl 

71 


LDX 


#PRTSTR 

POINT TO PROT 

4E38 

7E 

42 

87 


JMP 


PDATA1 

PRINT IT 





# 

* TRAP i 

* 

ON NEST 

COUNT 


4E3B 

CE 

5R 

7D 

TRNEST 

LDX 


#NSTST 

POINT TO STRING 

4E3E 

20 

19 



BRA 


NSTER2 

REPORT ERROR 





* 

* SET TRANSFER 

* 

TRAP 


4E40 

BD 

4C 

69 

STXFR 

JSR 


TSTON 

TEST ON/OFF 

4E43 

27 

05 



BEQ 


STXFR2 


4E45 

7F 

40 

R6 


CLR 


XFRT 

TURN OFF 

4E48 

20 

36 



BRA 


RTRN1 

RETURN 

4E4R 

86 

01 


STXFR2 

LDA 

A 

#1 

TURN ON 

4E4C 

B7 

40 

R6 


STA 

A 

XFRT 

SET FLAG 

4E4F 

20 

2F 



BRA 


RTRN1 
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4E51 CE 5A B6 
4E54 20 03 


* REPORT XFR TRAP 

* 


XFRTRP 


LDX 

BRA 


#XFRST 

NSTER2 


POINT TO STRING 
REPORT 


4E56 CE 5A 89 
4E59 7E 45 3E 


* 

* REPORT NEST ERROR 

* 


NSTER 

NSTER2 


LDX 

JMP 


#NERST 

SIMUL7 


POINT TO STRING 
GO REPORT 


* PRINT RETURN ADDRESS 

* 


4E5C 

BD 

4C 

63 

RTRN 

JSR 


TSTTRM 

TEST TERM 

4E5F 

26 

2A 



BNE 


RTRN4 

ERROR? 

4E61 

7D 

40 

99 


TST 


NESTC 

CHECK NEST COUNT 

4E64 

27 

ID 



BEQ 


RTRN2 


4E66 

CE 

5A 

9C 


LDX 


#RTADS 

POINT TO STRING 

4E69 

BD 

42 

85 


JSR 


PSTRNG 


4E6C 

FE 

40 

91 


LDX 


SP 

GET SP 

4E6F 

08 




INX 



BACK INTO STACK 

4E70 

A6 

01 



LDR 

A 

1> X 

GET ADDRESS 

4E72 

E6 

00 



LDA 

B 

Q, X 


4E74 

B7 

40 

5E 


STR 

A 

VALUE+1 

SAVE ADDRESS 

4E77 

F7 

40 

5D 


STA 

B 

VALUE 


4E7A 

CE 

40 

5D 


LDX 


#VALUE 

POINT TO IT 

4E7D 

BD 

43 

26 


JSR 


OUTADR 

PRINT ADDRESS 

4E80 

7E 

41 

95 

RTRN1 

JMP 


EXEC 

RETURN 

4E83 

CE 

5A 

A6 

RTRN2 

LDX 


#NORTS 

POINT TO STRING 

4E86 

BD 

42 

85 


JSR 


PSTRNG 

PRINT IT 

4E89 

20 

F5 



BRA 


RTRN1 


4E8B 

7E 

41 

CE 

RTRN4 

JMP 


SVNER 

REPORT ERROR 


* DO DISASSEMBLV 

* 


4E8E 

BD 

4C 

63 

DIS 

JSR 


TSTTRM 

CHECK TERM 

4E91 

27 

F8 



BEQ 


RTRN4 

ERROR? 

4E93 

BD 

4C 

DD 


JSR 


GETRNG 

GET ADDRESSES 

4E96 

BD 

42 

94 


JSR 


PCRLF 

PRINT CR & LF 

4E99 

FE 

40 

63 


LDX 


FIRST 

GET START ADDR 

4E9C 

FF 

40 

97 


STX 


OLDPC 

SAVE START 

4E9F 

BD 

42 

94 

DIS2 

JSR 


PCRLF 

PRINT CR & LF 

4EA2 

BD 

4A 

43 


JSR 


DISC 

DO ONE LINE 

4EA5 

B6 

40 

97 


LDA 

A 

OLDPC 

GET NEXT POINTER 

4EA8 

F6 

40 

98 


LDA 

B 

OLDPC+1 


4EAB 

B1 

40 

65 


CMP 

A 

LAST 

FINISHED? 

4ERE 

22 

07 



BHI 


DIS4 



38 



TSC DEBUG PRCKRGE 


TSC ASSEMBLER PAGE 39 



4EB0 

25 

ED 



BLO 


DIS2 


4EB2 

FI 

40 

66 


CMP 

B 

LRST+1 


4EB5 

23 

E8 



BLS 


DIS2 


4EB7 

FE 

40 

93 

DIS4 

LDX 


PC 

RESET POINTERS 

4EBR 

FF 

40 

97 


STX 


OLDPC 


4EBD 

BD 

42 

94 


JSR 


PCRLF 


4EC0 

20 

BE 


DIS6 

BRR 


RTRN1 

RETURN TO EXEC 





* 

* SET 

* 

TRACE 

MODE RND LEVEL 

4EC2 

BD 

4C 

2R 

STRRC 

JSR 


EQVRL 

GET VALUE 

4EC5 

B6 

40 

5E 


LDfi 

fl 

VRLUE+1 


4EC8 

B7 

40 

9D 


STR 

R 

TRCF 

SAVE IN FLAG 

4ECB 

20 

F3 



BRR 


DIS6 

RETURN 





>*< 

* SET 

* 

STOP ADDRESS 


4ECD 

BD 

4C 

5D 

SSTOP 

JSR 


TSTEQ 

TEST FOR EQUALS 

4ED0 

26 

0R 



BNE 


SST0P2 

ERROR? 

4ED2 

BD 

43 

B5 


JSR 


GETHEX 

GET ADDRESS 

4ED5 

25 

05 



BCS 


SST0P2 

ERROR? 

4ED7 

FF 

40 

73 


STX 


END 

SAVE ADDRESS 

4EDR 

20 

E4 



BRR 


DIS6 

RETURN 

4EDC 

20 

RD 


SST0P2 

BRR 


RTRN4 

REPORT ERROR 





* 

* EXAMINE AND 

* 

CHANGE MEMORV 

4EDE 

BD 

4C 

63 

XMEM 

JSR 


TSTTRM 

CHECK TERM 

4EE1 

27 

07 



BEQ 


XMEM2 


4EE3 

BD 

43 

B5 


JSR 


GETHEX 

GET RDDRESS 

4EE6 

25 

F4 



BCS 


SST0P2 

ERROR? 

4EE8 

20 

03 



BRR 


XMEM3 


4EER 

FE 

40 

93 

XMEM2 

LDX 


PC 

GET DEFAULT RDDR 

4EED 

FF 

40 

61 

XMEM3 

STX 


POINTS 

SAVE POINTER 

4EF0 

BD 

42 

94 


JSR 


PCRLF 

PRINT CR & LF 

4EF3 

CE 

40 

61 

XMEM35 

LDX 


#P0INT2 

POINT TO ADDRESS 

4EF6 

BD 

43 

26 


JSR 


OUTRDR 

PRINT IT 

4EF9 

BD 

49 

4F 


JSR 


OUTSP 

PRINT SPACE 

4EFC 

FE 

40 

61 


LDX 


P0INT2 

POINT TO DATA 

4EFF 

BD 

43 

29 


JSR 


OUTHEX 

PRINT IT 

4F02 

BD 

49 

4F 


JSR 


OUTSP 

PRINT SPACE 

4F05 

FE 

40 

61 


LDX 


P0INT2 

GET ADDRESS 

4F08 

7F 

40 

5D 


CLR 


VALUE 

CLEAR OUT NUMBER 

4F0B 

7F 

40 

5E 


CLR 


VRLUE+1 


4F0E 

BD 

41 

06 


JSR 


GETCHR 

GET CHARACTER 

4F11 

81 

0D 



CMP 

R 

#$D 

IS IT CR? 

4F13 

27 

RB 



BEQ 


DIS6 


4F15 

81 

0fl 



CMP 

R 

#$A 

IS IT LF? 
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4F17 

27 

£4 



BED 


XMEM5 


4F19 

81 

20 


XMEM37 

CMP 

A 

#$£0 

IS IT SPACE? 

4F1B 

£7 

0D 



BEG! 


XMEM38 


4F1D 

BD 

43 

D4 


JSR 


TSTHEX 

IS IT HEX? 

4F£0 

£5 

18 



BCS 


XMEM4 


4F22 

BD 

43 

A0 


JSR 


WRKHX 

WORK IN VALUE 

4F25 

BD 

41 

06 


JSR 


GETCHR 

GET NEW CHARACTER 

4F28 

20 

EF 



BRA 


XMEM37 


4F2A 

FE 

40 

61 

XMEM38 

LDX 


POINTS 

GET ADDRESS 

4F2D 

B6 

40 

5E 


LDA 

A 

VRLUE+1 

GET VALUE 

4F30 

A7 

00 



STA 

A 

0 ! X 

PUT NEW DATA 

4F32 

01 




NOP 



DELAY 

4F33 

A1 

00 



CMP 

A 

0, X 

CHECK MEMORY 

4F35 

£7 

03 



BEQ 


XMEM4 


4F37 

7E 

41 

C6 


JMP 


ILIN 

REPORT ERROR 

4F3A 

08 



XMEM4 

INX 



BUMP TO NEXT 

4F3B 

£0 

B0 



BRA 


XMEM3 

REPEAT 

4F3D 

09 



XMEM5 

DEX 



MOVE BACK ONE 

4F3E 

86 

0D 



LDR 

A 

#$D 

OUTPUT CR 

4F40 

BD 

41 

09 


JSR 


PUTCHR 


4F43 

FF 

40 

61 


STX 


POINTS 

SAVE POSITION 

4F46 

£0 

AB 



BRA 


XMEM35 






* 

* SET 

* 

REGISTERS 


4F48 

BD 

4C 

63 

SET 

JSR 


TSTTRM 

CHECK TERM 

4F4B 

£7 

3C 



BEQ 


SET6 

ERROR? 

4F4D 

8D 

3D 


SET£ 

BSR 


FNDREG 

FIND REGISTER 

4F4F 

£5 

38 



BCS 


SET6 

ERROR? 

4F51 

81 

01 



CMP 

A 

#1 

CHECK SIZE 

4F53 

26 

0F 



BNE 


SET4 


4F55 

BD 

4C 

37 


JSR 


HEQVAL 

GET HEX VALUE 

4F58 

FE 

40 

61 


LDX 


POINTS 

GET POINTER 

4F5B 

EE 

0£ 



LDX 


2, X 

POINT TO REG 

4F5D 

B6 

40 

5E 


LDA 

A 

VALUE+1 

GET VALUE 

4F60 

A7 

00 



STA 

A 

0, X 

SET REGISTER 

4F62 

20 

ID 



BRA 


SET5 


4F64 

BD 

4C 

37 

SET4 

JSR 


HEQVAL 

GET HEX VALUE 

4F67 

FE 

40 

61 


LDX 


POINTS 

GET POINTER 

4F6A 

EE 

02 



LDX 


2, X 

POINT TO REG 

4F6C 

B6 

40 

5D 


LDA 

A 

VALUE 

GET VALUE 

4F6F 

F6 

40 

5E 


LDA 

B 

VALUE+1 


4F72 

A7 

00 



STA 

A 

0, X 

SET REGISTER 

4F74 

E7 

01 



STA 

B 

1, X 


4F76 

8C 

40 

91 


CPX 


#SP 

IS IT SP? 

4F79 

£6 

06 



BNE 


SET5 


4F7B 

B7 

40 

81 


STA 

A 

MAXSP 

SET MAX DEPTH 

4F7E 

F7 

40 

82 


STA 

B 

MAXSP+1 


4F81 

BD 

4C 

63 

SET5 

JSR 


TSTTRM 

ANY MORE? 

4F84 

£6 

C7 



BNE 


SETS 


4F86 

7E 

41 

95 


JMP 


EXEC 

RETURN 

4F89 

7E 

41 

CE 

SET6 

JMP 


SVNER 

REPORT ERROR 
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* 

* FIND REGISTER IN MEMORV 

* 


4F8C 

BD 

43 

61 

FNDREG 

JSR 


4F8F 

25 

F8 



BCS 


4F91 

36 




PSH 

A 

4F92 

BD 

43 

61 


JSR 


4F95 

32 




PUL 

A 

4F96 

24 

FI 



BCC 


4F98 

84 

5F 


FNDRE1 

AND 

A 

4F9A 

CE 

59 

07 


LDX 


4F9D 

C6 

01 



LDA 

B 

4F9F 

6D 

00 


FNDRE2 

TST 


4FA1 

27 

12 



BEQ 


4FA3 

A1 

00 



CMP 

A 

4FA5 

27 

07 



BEQ 


4FA7 

08 




INX 


4FA8 

08 




INX 


4FA9 

08 




INX 


4FAA 

08 




INX 


4FAB 

5C 




INC 

B 

4FAC 

20 

FI 



BRA 


4FAE 

A6 

01 


FNDRE4 

LDA 

A 

4FB0 

FF 

40 

61 


STX 


4FB3 

0C 




CLC 


4FB4 

39 




RTS 


4FB5 

0D 



FNDRE6 

SEC 


4FB6 

39 




RTS 



NXTCH 

GET NEXT CHAR 

SET6 

ERROR? 

SAVE IT 

NXTCH 

GET NEXT 

SET6 

ERROR? 

#$5F 

MAKE UPPER 

#RGT 

POINT TO TABLE 

#1 

SET COUNT 

0/ X 

FNDRE6 

END OF TAB? 

0s X 

COMPARE NAMES 

FNDRE4 

MATCH? 

MOVE TO NEXT 


BUMP COUNT 
FNDRE2 REPEAT 

1, X GET SIZE 

P0INT2 SAVE POSITION 

SHOW FOUND 
RETURN 
SHOW ERROR 
RETURN 


* 

* SET BREAK POINT 

* 


4FB7 

7F 

40 

B1 

BRK 

CLR 


BTVP 

CLEAR TVPE 

4FBA 

BD 

4C 

63 


JSR 


TSTTRM 

CHECK TERM 

4FBD 

27 

27 



BEQ 


BRK3 

ERROR? 

4FBF 

81 

40 %X 


CMP 

A 

# ' @ 3L 

CHECK FOR 'Q' 

4FC1 

26 

07 



BNE 


BRK2 


4FC3 

86 

03 



LDA 

A 

#$3 

SET DEFRULT TVPE 

4FC5 

B7 

40 

B1 


STR 

A 

BTVP 


4FC8 

20 

IF 



BRA 


BRK4 


4FCA 

BD 

43 

61 

BRK2 

JSR 


NXTCH 

GET CHARACTER 

4FCD 

81 40 ZX 


CMP 

A 


IS IT '0'? 

4FCF 

27 

18 



BEQ 


BRK4 


4FD1 

BD 

51 

6C 


JSR 


FNDTP 

FIND TVPE 

4FD4 

25 

10 



BCS 


BRK3 

ERROR? 

4FD6 

A6 

01 



LDA 

A 

Is X 

GET TVPE 

4FD8 

BA 

40 

B1 


ORA 

A 

BTVP 

MASK IN NEW 

4FDB 

B7 

40 

B1 


STA 

A 

BTVP 

SAVE NEW 

4FDE 

20 

EA 



BRA 


BRK2 

REPEAT 

4FE0 

FE 

40 

AC 

BRK25 

LDX 


BPPOS 

GET BP POS 

4FE3 

BD 

51 

4D 


JSR 


RMVBP 

REMOVE BP 


K 

x 
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4FE6 

7E 

41 

CE 

BRK3 

JMP 


SVNER 

REPORT ERROR 

4FE9 

BD 

43 

B5 

BRK4 

JSR 


GETHEX 

GET ADDRESS 

4FEC 

£5 

F8 



BCS 


BRK3 


4FEE 

FF 

40 

B2 


STX 


BPAD 

SAVE ADDRESS 

4FF1 

B6 

40 

B2 


LDA 

A 

BPAD 

GET ADDRESS 

4FF4 

F6 

40 

B3 


LDA 

B 

BPAD+1 


4FF7 

BD 

44 

4D 


JSR 


LKBP 

LOOK FOR BREAKPOINT 

4FFA 

FF 

40 

AC 


STX 


BPPOS 

SAVE POSITION 

4FFD 

8C 

3D 

00 


CPX 


#STRTPC 

OVERFLOW? 

5000 

26 

0F 



BNE 


BRK5 


5002 

CE 

5A 

C3 

BRK42 

LDX 


#BOVST 

POINT TO STRING 

5005 

BD 

42 

85 


JSR 


' PSTRNG 

PRINT IT 

5008 

FE 

40 

AC 


LDX 


BPPOS 

GET POS 

500B 

BD 

51 

4D 


JSR 


RMVBP 

REMOVE IT 

500E 

7E 

41 

95 

BRK45 

JMP 


EXEC 

RETURN 

5011 

C6 

08 


BRK5 

LDA 

B 

#8 

SET COUNTER 

5013 

6F 

00 


BRK55 

CLR 


0/ X 

CLEAR OUT BP 

5015 

08 




INX 




5016 

5A 




DEC 

B 


DEC THE COUNT 

5017 

£6 

FA 



BNE 


BRK55 


5019 

FE 

40 

AC 


LDX 


BPPOS 

GET POSITION 

501C 

B6 

40 

B2 


LDA 

A 

BPAD 

GET ADDRESS 

501F 

F6 

40 

B3 


LDA 

B 

BPAD+1 


5022 

A7 

00 



STA 

A 

0/ X 

PUT IN ADDRESS 

5024 

E7 

01 



STA 

B 

1, X 


5026 

B6 

40 

B1 


LDA 

A 

BTVP 

GET TVPE 

5029 

A7 

07 



STA 

A 

71 X 

PUT IN 

502B 

BD 

4C 

63 


JSR 


TSTTRM 

CHECK TERM 

502E 

27 

31 



BEQ 


BRK7 


5030 

BD 

43 

61 


JSR 


NXTCH 

GET CHARACTER 

5033 

81 

3E 



CMP 

A 

#'> 

CHECK COUNTERS 

5035 

27 

14 



BEQ 


BRK6 


5037 

81 

3C 



CMP 

A 

#'< 


5039 

27 

09 



BEQ 


BRK58 


503B 

FE 

40 

50 


LDX 


BUFPNT 

RESET POINTER 

503E 

09 




DEX 




503F 

FF 

40 

50 


STX 


BUFPNT 


5042 

20 

ID 



BRA 


BRK7 


5044 

FE 

40 

AC 

BRK58 

LDX 


BPPOS 

GET POSITION 

5047 

86 

80 



LDA 

A 

#$80 

SET BEFORE COUNT 

5049 

A7 

02 



STA 

A 

2, X 


504B 

BD 

43 

EE 

BRK6 

JSR 


INDEC 

GET COUNT 

504E 

25 

90 



BCS 


BRK25 

ERROR? 

5050 

FE 

40 

AC 


LDX 


BPPOS 

GET POSITION 

5053 

B6 

40 

5D 


LDA 

A 

VALUE 

GET VALUE 

5056 

2B 

88 



BMI 


BRK25 

COUNT TOO BIG? 

5058 

F6 

40 

5E 


LDA 

B 

VALUE+l 


505B 

E7 

03 



STA 

B 

3j X 

SAVE COUNT 

505D 

AA 

02 



ORA 

A 

2, X 


505F 

A7 

02 



STA 

A 

2, X 


5061 

FE 

40 

AE 

BRK7 

LDX 


BPEND 

POINT TO BP 

5064 

BC 

40 

AC 


CPX 


BPPOS 

CHECK IF NEW 

5067 

26 

08 



BNE 


BRK72 


5069 

C6 

08 



LDA 

B 

#8 



42 



43 
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506B 

BD 

44 

2D 

JSR 


ADDBX 

CALCULATE END 

506E 

FF 

40 

AE 

STX 


BPEND 

SAVE END 

5071 

B6 

40 

B1 BRK72 

LDA 

A 

BTVP 

GET TVPE 

5074 

85 

20 


BIT 

A 

##20 

IS IT HIST? 

5076 

26 

0B 


BNE 


DOHB 


5078 

85 

40 


BIT 

A 

##40 

IS IT MESSAGE? 

507A 

26 

12 


BNE 


DOMB 


507C 

85 

80 


BIT 

A 

##80 

IS IT JUMP? 

507E 

26 

45 


BNE 


DO JB 


5080 

7E 

50 

FI 

JMP 


BEXP 

PROCESS EXP 


* 

* SETUP HISTOGRAM COUNT 

* 


5083 

BD 

4C 

63 

DOHB 

JSR 

TSTTRM 

CHECK TERM 

5086 

27 

03 



BEQ 

D0HB2 


5088 

7E 

4F 

E0 

DOHB1 

JMP 

BRK25 

REPORT ERROR 

508B 

7E 

41 

95 

D0HB2 

JMP 

EXEC 

RETURN 


* 

* SETUP MESSAGE 

* 


508E 

FE 

40 

B6 

DOMB 

LDX 


NXTMSG 

CHECK FULL 

5091 

8C 

3F 

A0 


CPX 


#USER 


5094 

26 

03 



BNE 


DOMB1 


5096 

7E 

50 

02 


JMP 


BRK42 


5099 

B6 

40 

B6 

DOMB1 

LDA 

A 

NXTMSG 

GET POINTER 

509C 

F6 

40 

B7 


LDA 

B 

NXTMSG+1 


509F 

FE 

40 

AC 


LDX 


BPPOS 

POINT TO BP 

50A2 

A7 

05 



STA 

A 

5/ X 

SAVE POINTER 

50A4 

E7 

06 



STA 

B 

6/ X 


50A6 

FE 

40 

B6 


LDX 


NXTMSG 

POINT TO SPACE 

50A9 

BD 

43 

61 

D0MB2 

JSR 


NXTCH 

GET NEXT CHAR 

50AC 

81 

0D 



CMP 

A 

##D 

IS IT CR? 

50AE 

27 

0B 



BEQ 


D0MB4 


50B0 

A7 

00 



STA 

A 

0, X 

SAVE CHARACTER 

50B2 

08 




INX 




50B3 

8C 

3F 

A0 


CPX 


#USER 

TABLE FULL? 

50B6 

26 

FI 



BNE 


DOMES 


50B8 

7E 

50 

02 


JMP 


BRK42 


50BB 

86 

04 


D0MB4 

LDA 

A 

#4 

SETUP TERM 

50BD 

A7 

00 



STA 

A 

0, X 


50BF 

08 




INX 



FIX POINTER 

50C0 

FF 

40 

B6 


STX 


NXTMSG 

MARK END 

50C3 

20 

C6 



BRA 


D0HB2 

RETURN 





* 

* SETUP 

* 

JUMP BP 


50C5 

BD 

43 

B5 

DO JB 

JSR 


GETHEX 

GET ADDRESS 

50C8 

25 

BE 



BCS 


DOHB1 

ERROR? 


PAGE 
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50CR B6 40 5D 
50CD F6 40 5E 
50D0 FE 40 RC 
50D3 R7 05 
50D5 E7 06 
50D7 20 B2 


50D9 FE 40 RC 
50DC C6 01 
50DE B6 40 68 
50E1 81 21 
50E3 26 04 
50E5 5C 
50E6 BD 43 61 
50E9 81 3D 
50EB 26 01 
50ED 39 
50EE 7E 4F E0 


50F1 BD 4C 63 
50F4 27 95 
50F6 BD 43 61 
50F9 84 5F 
50FB 81 49 
50FD 26 EF 
50FF BD 43 61 
5102 84 5F 
5104 81 46 
5106 26 E6 
5108 BD 43 7E 
510B BD 43 61 
510E 24 12 
5110 81 24 
5112 26 DR 
5114 BD 43 B5 
5117 25 D5 

5119 BD 50 D9 
511C Cfl 80 
511E E7 04 

5120 20 1C 
5122 BD 4F 98 
5125 25 C7 

5127 58 

5128 58 

5129 58 
512R 58 


LDR 

R 

VALUE 

GET VALUE 

LDR 

B 

VALUE+1 


LDX 


BPPOS 

POINT TO BP 

STR 

R 

5, X 

SAVE ADDRES 

STR 

B 

6/ X 


BRA 


D0HB2 

RETURN 


* 

♦ SET CONDITIONAL STATUS 

* 


SETCN 

LDX 

BPPOS 

POINT TO BP 


LDR B 

#1 



LDR R 

LSTTRM 

GET TERM 


CMP A 

#' ! 

NOT EQUALS? 


BNE 

INC B 

SETCN2 

SET IND 


JSR 

NXTCH 

GET NEXT CHAR 

SETCN2 

CMP A 

#' = 

IS IT '*'? 


BNE 

SETCN4 

ERROR? 


RTS 


RETURN 

SETCN4 

JMP 

BRK25 

REPORT ERROR 

* 

* PROCESS BP EXPRESSION 

* 


BEXP 

JSR 

TSTTRM 

CHECK TERM 


BEQ 

D0HB2 



JSR 

NXTCH 

GET CHARACTER 


AND A 

#*5F 

MAKE UPPER 


CMP A 

#'I 

IS IT 'I' 


BNE 

SETCN4 

ERROR? 


JSR 

NXTCH 

GET NEXT 


AND A 

#*5F 

MAKE UPPER 


CMP A 

#'F 

IS IT 'F'? 


BNE 

SETCN4 



JSR 

SKPSPC 

SKIP SPACES 


JSR 

NXTCH 

GET CHARACTER 


BCC 

BEXP2 

LETTER? 


CMP R 


IS IT '%"> 


BNE 

SETCN4 

ERROR? 


JSR 

GETHEX 

GET ADDRESS 


BCS 

SETC-N4 



JSR 

SETCN 

SET CONDITION 


ORR B 

#*80 

SET ADDR TVPE 


STR B 

4, X 

SAVE IN BP 


BRA 

BEXP4 


BEXP2 

JSR 

FNDRE1 

FIND REGISTER 

BEXP3 

BCS 

SETCN4 

ERROR? 


RSL B 
ASL B 
ASL B 
ASL B 


FIX SPEC 
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512B 

F7 

40 

9A 

STB 

B 

OPCNT 

SAVE VALUE 

512E 

BD 

43 

61 

JSR 


NXTCH 

GET CHARACTER 

5131 

BD 

50 

D9 

JSR 


SETCN 

GET CONDITIONAL 

5134 

FA 

40 

9A 

ORA 

B 

OPCNT 


5137 

E7 

04 


STA 

B 

4, X 

SAVE IN BP 

5139 

BD 

43 

B5 

JSR 


GETHEX 

GET VALUE 

513C 

25 

E7 


BCS 


BEXP3 

ERROR? 

513E 

B6 

40 

5D BEXP4 

LDA 

A 

VALUE 

GET VALUE 

5141 

F6 

40 

5E 

LDA 

B 

VALUE+1 


5144 

FE 

40 

AC 

LDX 


BPPOS 

POINT TO BP 

5147 

A7 

05 


STA 

A 

5, X 

SAVE VALUE 

5149 

E7 

06 


STA 

B 

6, X 


514B 

20 

4A 


BRA 


HIST7 

RETURN 


* REMOVE BREAKPOINT FROM TABLE 

* 


514D 

BC 

40 

AE 

RMVBP 

CPX 


BPEND 

END OF LIST? 

5150 

27 

19 



BEQ 


RMVBP4 


5152 


40 

AE 

RMVBP1 

CPX 


BPEND 

END OF TABLE? 

5155 

27 

07 



BEQ 


RMVBP2 


5157 

A6 

08 



LDA 

A 

8, X 

GET CHARACTER 

5159 

A7 

00 



STA 

A 

0, X 

MOVE IT DOWN 

515B 

08 




INX 



BUMP TO NEXT 

515C 

20 

F4 



BRA 


RMVBP1 

REPEAT 

515E 

B6 

40 

AF 

RMVBP2 

LDA 

A 

BPEND+1 

GET END POINT 

5161 

80 

08 



SUB 

A 

#8 

DEC BV 8 

5163 

B7 

40 

AF 


STA 

A 

BPEND+1 

SAVE NEW 

5166 

24 

03 



BCC 


RMVBP4 


5168 

7A 

40 

AE 


DEC 


BPEND 

ADJUST MSB 

516B 

39 



RMVBP4 

RTS 



RETURN 





* 

* FIND 

* 

BP TVPE 

IN TABLE 


516C 

CE 

59 

24 

FNDTP 

LDX 


#TVPTB 

POINT TO TABLE 

516F 

6D 

00 


FNDTP2 

TST 


0, X 

END OF TABLE? 

5171 

27 

0A 



BEQ 


FNDTP6 


5173 

A1 

00 



CMP 

A 

0/ X 

CHECK CHARACTER 

5175 

27 

04 



BEQ 


FNDTP4 

MATCH? 

5177 

08 




INX 



MOVE TO NEXT 

5178 

08 




INX 




5179 

20 

F4 



BRA 


FNDTP2 


517B 

0C 



FNDTP4 

CLC 



SHOW MATCH 

517C 

39 




RTS 



RETURN 

517D 

0D 



FNDTP6 

SEC 



SHOW ERROR 

517E 

39 




RTS 



RETURN 


* PRINT HISTOGRAMS 

* 


45 
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517F 

8D 

19 


HIST 

BSR 

SETFL 

SET UP POINTERS 

5181 

BD 

51 

CE 

HIST2 

JSR 

NXTRB 

GET BP POS 

5184 

26 

0E 



BNE 

HIST6 

FINISHED? 

5186 

R6 

07 



LDR R 

7, X 

GET TYPE 

5188 

84 

20 



AND R 

#$20 

IS IT HIST? 

518A 

27 

F5 



BEQ 

HIST2 


518C 

8D 

28 



BSR 

PBPRD 

PRINT ADDRESS 

518E 

5F 




CLR B 


CLEAR FLAG 

518F 

BD 

42 

D5 


JSR 

OUTDEC 

OUTPUT COUNT 

5192 

20 

ED 



BRR 

HIST2 

REPEAT 

5194 

BD 

42 

94 

HIST 6 

JSR 

PCRLF 

PRINT CR & LF 

5197 

7E 

41 

95 

HIST7 

,.*—.— 

JMP 

EXEC 

RETURN 





* SETUP 

* 

FIRST 

&. LAST POINTERS 

519A 

BD 

42 

94 

SETFL 

JSR 

PCRLF 

PRINT CR & LF 

519D 

CE 

00 

00 


LDX 

#0 

SET FIRST 

51R0 

FF 

40 

63 


STX 

FIRST 


51R3 

09 




DEX 


SET LAST 

51R4 

FF 

40 

65 


STX 

LAST 


51R7 

BD 

4C 

63 


JSR 

TSTTRM 

CHECK TERM 

51RA 

27 

03 



BEQ 

SETFL2 


51RC 

BD 

4C 

DD 


JSR 

GETRNG 

GET RANGE 

51RF 

CE 

3B 

F8 

SETFL2 

LDX 

#BPTRB- 

-8 

51B2 

FF 

40 

B4 


STX 

NXTBP 

SET POINTER 

51B5 

39 




RTS 


RETURN 





* 

* PRINT 

* 

BP ADDRESS 


51B6 

BD 

42 

94 

PBPRD 

JSR 

PCRLF 

PRINT CR & LF 

51B9 

BD 

49 

4F 


JSR 

OUTSP 

PRINT SPACE 

51BC 

BD 

43 

26 


JSR 

OUTRDR 

PRINT ADDRESS 

51BF 

CE 

5R 

E4 


LDX 

#DSHST 

POINT TO STRING 

51C2 

BD 

42 

87 


JSR 

PDRTR1 

PRINT IT 

51C5 

FE 

40 

B4 


LDX 

NXTBP 

POINT TO BP 

51C8 

08 




I NX 


BUMP TO INFO 

51C9 

08 




INX 



51CR 

08 




I NX 



51CB 

08 




INX 



51CC 

08 




INX 



51CD 

39 




RTS 


RETURN 





♦ 

* RETURN NEXT 

* 

BP IN RANGE 

51CE 

FE 

40 

B4 

NXTRB 

LDX 

NXTBP 

POINT TO BP 

51D1 

C6 

08 



LDR B 

#8 

ADD IN 8 

51D3 

BD 

44 

2D 


JSR 

ADDBX 


51D6 

FF 

40 

B4 

NXTRB2 

STX 

NXTBP 

SAVE NEW POS 
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51D9 

BC 

40 

RE 


CPX 

BPEND 

END OF LIST? 

51DC 

27 

0D 



BEQ 

NXTRB4 


SIDE 

R6 

00 



LDR R 

0/ X 

GET RDDRESS 

51E0 

E6 

01 



LDR B 

1/ x 


51E2 

8D 

0R 



BSR 

INRNG 

CHECK RANGE 

51E4 

26 

E8 



BNE 

NXTRB 

REPEAT 

51E6 

FE 

40 

B4 


LDX 

NXTBP 

POINT TO BP 

51E9 

4F 




CLR fl 


SHOW MATCH 

51ER 

39 




RTS 


RETURN 

51EB 

86 

01 


NXTRB4 

LDR R 

#1 

SHOW ERROR 

51ED 

39 




RTS 


RETURN 





* 

* RDDRESS IN RRNGE CHECK 

♦ 


51EE 

CE 

40 

63 

INRNG 

LDX 

#FIRST 

POINT TO 1ST 

51F1 

8D 

0B 



BSR 

DCMP 

COMPARE IT 

51F3 

25 

F6 



BLO 

NXTRB4 


51F5 

CE 

40 

65 


LDX 

#LRST 

POINT TO LAST 

51F8 

8D 

04 



BSR 

DCMP 

COMPARE 

51FR 

22 

EF 



BHI 

NXTRB4 


51FC 

4F 




CLR R 


SHOW MATCH 

51FD 

39 




RTS 


RETURN 





* 

* DO 16 
+ 

BIT COMPARE 


51FE 

fil 

00 


DCMP 

CMP fl 

0, X 

CHECK MSB 

5200 

26 

02 



BNE 

DCMP2 


5202 

El 

01 



CMP B 

1, X 

COMPARE LSB 

5204 

39 



DCMP2 

RTS 


RETURN 





* 

* PRINT 

* 

BREAK 

POINTS 


5205 

BD 

51 

9R 

PBP 

JSR 

SETFL 

SET RANGES 

5208 

8D 

C4 


PBP2 

BSR 

NXTRB 

GET BREAKPOINT 

520R 

26 

IE 



BNE 

PBP6 

FINISHED? 

520C 

BD 

51 

B6 


JSR 

PBPRD 

PRINT RDDRESS 

520F 

E6 

02 



LDR B 

£j X 

GET TVPE 

5211 

CE 

59 

24 


LDX 

#TVPTB 

POINT TO TABLE 

5214 

86 

08 



LDR R 

#8 

SET COUNTER 

5216 

B7 

40 

67 


STR R 

CNTR 


5219 

56 



PBP3 

ROR B 


CHECK BIT BV BIT 

521R 

24 

05 



BCC 

PBP4 


521C 

R6 

00 



LDR fl 

0/ X 

GET CHARACTER 

521E 

BD 

41 

09 


JSR 

PUTCHR 

PRINT IT 

5221 

08 



PBP4 

INX 


MOVE TO NEXT ENTRY 

5222 

08 




INX 



5223 

7R 

40 

67 


DEC 

CNTR 

DEC THE COUNT 

5226 

26 

FI 



BNE 

PBP3 

REPEAT 
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5228 

20 

DE 



BRR 

PBP2 


522R 

7E 

51 

94 

PBP6 

JMP 

HIST6 

RETURN 





* 

* CLEAR 

* 

BREAKPOINTS 


522D 

BD 

51 

9R 

CLB 

JSR 

SETFL 

SET RANGE 

5230 

8D 

9C 


CLB2 

BSR 

NXTRB 

GET BP ADDRESS 

5232 

26 

12 



BNE 

CLB4 

FINISHED? 

5234 

BD 

51 

4D 


JSR 

RMVBP 

REMOVE BP 

523? 

B6 

40 

B5 


LDR A 

NXTBP+1 

GET POINTER 

523R 

80 

08 



SUB A 

#8 

DEC BV 8 

523C 

B7 

40 

B5 


STA A 

NXTBP+1 

SAVE RESULT 

523F 

24 

EF 



BCC 

CLB2 


5241 

7R 

40 

B4 


DEC 

NXTBP 

ADJUST MSB 

5244 

20 

ER 



BRA 

CLB2 

REPEAT 

5246 

7E 

41 

95 

CLB4 

JMP 

EXEC 

RETURN 





* 

* CLEAR 
+ 

HISTOGRAM COUNTERS 

5249 

BD 

51 

9fi 

CLH 

JSR 

SETFL 

SET RANGE 

524C 

BD 

51 

CE 

CLH2 

JSR 

NXTRB 

GET BREAKPOINT 

524F 

26 

F5 



BNE 

CLB4 

FINISHED? 

5251 

6F 

05 



CLR 

5/ X 

CLEAR COUNTER 

5253 

6F 

06 



CLR 

6> X 


5255 

20 

F5 



BRA 

CLH2 

REPEAT 





♦ 

* DO COUNTED SIMULATION 

* 


5257 

86 

FF 


tcsim 

LDA A 

#*FF 

SET TRACE ON 

5259 

B7 

40 

9C 


STA A 

PRON 


525C 

20 

03 



BRA 

CSIM2 


525E 

7F 

40 

9C 

CSIM 

CLR 

PRON 

TURN TRACE OFF 

5261 

CE 

00 

01 

CSIM2 

LDX 

#1 

SET DEFAULT COUNT 

5264 

FF 

40 

87 


STX 

SIMCNT 


5267 

BD 

4C 

63 


JSR 

TSTTRM 

TEST TERM 

526R 

27 

08 



BEQ 

CSIM4 


526C 

BD 

43 

EE 


JSR 

INDEC 

GET COUNT 

526F 

25 

06 



BCS 

CSIM6 

ERROR? 

5271 

FF 

40 

87 


STX 

SIMCNT 

SET COUNT 

5274 

7E 

44 

90 

CSIM4 

JMP 

SIMUL2 

GO SIMULATE 

527? 

7E 

41 

CE 

CSIM6 

JMP 

SVNER 

REPORT ERROR 





* 

* PRINT 

* 

STATES 

COUNTER 


527R 

CE 

59 

9F 

PSTRT 

LDX 

#STST 

POINT TO STRING 
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527D 

BD 

42 

85 


JSR 


PSTRNG 

5280 

CE 

40 

A7 


LDX 


#STATES 

5283 

BD 

43 

26 


JSR 


OUTADR 

5286 

08 




INX 



5287 

BD 

43 

26 


JSR 


OUTADR 

528A 

20 

BA 


PSTAT4 

BRA 


CLB4 





* 

* SET 

* 

DELAV 



528C 

BD 

4C 

2A 

SDELV 

JSR 


EQVAL 

528F 

B6 

40 

5E 


LDA 

A 

VALUE+1 

5292 

B7 

40 

8B 


STA 

A 

DELAV 

5295 

20 

F3 



BRA 


PSTAT4 


* 

* SET INDIRECTION MODE 

* 


5297 

BD 

4C 

69 

SIND 

JSR 


TSTQN 

529A 

26 

07 



BNE 


SIND2 

529C 

86 

FF 



LDA 

A 

#$FF 

529E 

B7 

40 

A1 


STA 

A 

VFLG 

52A1 

20 

E7 



BRA 


PSTAT4 

52A3 

7F 

40 

A1 

SIND2 

CLR 


VFLG 

52A6 

20 

E2 



BRA 


PSTAT4 





* 

* SET 

* 

INTERUPT 

STATUS 

52A8 

BD 

4C 

2A 

SIRQ 

JSR 


EQVAL 

52AB 

FF 

40 

7D 


STX 


IRQC 

52AE 

FF 

40 

7F 


STX 


IRQC2 

52B1 

20 

D7 



BRA 


PSTAT4 

52B3 

BD 

4C 

2A 

SNMI 

JSR 


EQVAL 

52B6 

FF 

40 

79 


STX 


NMIC 

52B9 

FF 

40 

7B 


STX 


NMIC2 

52BC 

20 

CC 



BRA 


PSTAT4 





* 

* HEX 

* 

CALCULATOR 

52BE 

7F 

40 

B1 

CALC 

CLR 


BTVP 

52C1 

CE 

59 

38 


LDX 


#CLCP 

52C4 

BD 

42 

85 


JSR 


PSTRNG 

52C7 

BD 

42 

3C 


JSR 


INBUF 

52CA 

BD 

43 

94 


JSR 


PRVW 

52CD 

81 

0D 



CMP 

A 

#$D 

52CF 

27 

51 



BEG! 


CALC9 

52D1 

8D 

51 



BSR 


CNUM 


PRINT IT 

POINT TO COUNTER 
PRINT IT 


RETURN 


CHECK VALUE 
GET VALUE 
SET DELAV 


TEST ON/OFF 

SET TO ON 

RETURN 
CLEAR MODE 


GET VALUE 
SET COUNTERS 


GET VALUE 
SET COUNTERS 


CLEAR MODE 
POINT TO PROMPT 
PRINT IT 
GET INPUT LINE 
CHECK FOR CR 


GET FIRST NUMBER 
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52D3 

FF 

40 

63 


STX 


FIRST 

SAVE IT 

52D6 

BD 

4C 

63 


JSR 


TSTTRM 

END OF LINE? 

52D9 

27 

2F 



BEQ 


CALC8 


52DB 

81 

2B 



CMP 

A 

#' + 

IS IT ADD? 

52DD 

27 

07 



BEQ 


CALCS 


52DF 

81 

2D 



CMP 

A 


IS IT SUBTRACT? 

52E1 

26 

56 



BNE 


CNUM6 


52E3 

B7 

40 

B1 


STA 

A 

BTVP 

SET MODE 

52E6 

8D 

3C 


CALC5 

BSR 


CNUM 

GET SECOND 

52E8 

FF 

40 

65 


STX 


LAST 

SAVE IT 

52EB 

B6 

40 

63 


LDR 

A 

FIRST 

GET NUMBER 

52EE 

F6 

40 

64 


LDA 

B 

FIRST+1 


52F1 

7D 

40 

B1 


TST 


BTVP 

ADD? 

52F4 

26 

08 



BNE 


CALC6 


52F6 

FB 

40 

66 


ADD 

B 

LAST+1 

ADD NUMBERS 

52F9 

B9 

40 

65 


ADC 

A 

LAST 


52FC 

20 

06 



BRA 


CALC7 


52FE 

F0 

40 

66 

CALC6 

SUB 

B 

LAST+1 

SUBTRACT NUMBERS 

5301 

B2 

40 

65 


SBC 

A 

LAST 


5304 

B7 

40 

63 

CALC7 

STA 

A 

FIRST 

SAVE RESULT 

5307 

F7 

40 

64 


STA 

B 

FIRST+1 


530A 

BD 

42 

94 

CALC8 

JSR 


PCRLF 

PRINT CR & LF 

530D 

86 

24 



LDA 

A 


OUTPUT 

530F 

BD 

41 

09 


JSR 


PUTCHR 


5312 

CE 

40 

63 


LDX 


#FIRST 

POINT TO NUMBER 

5315 

BD 

43 

26 


JSR 


OUTADR 

PRINT HEX ' 

5318 

BD 

49 

4D 


JSR 


0UT2SP 

PRINT SPACES 

531B 

09 




DEX 



ADJUST POINTER 

531C 

5F 




CLR 

B 


SET FLAG 

531D 

BD 

42 

D5 


JSR 


OUTDEC 

PRINT DECIMAL 

5320 

20 

9C 



BRA 


CALC 

REPEAT 

5322 

20 

60 


CALC9 

BRA 


D0ASM4 

RETURN 


* 

* GET NUMBER FOR CALC 

>*< 


5324 

BD 

43 

94 

CNUM 

JSR 

PRVW 

CHECK CHARACTER 

5327 

81 

24 



CMP A 


IS IT '*'? 

5329 

26 

0A 



BNE 

CNUM2 


532B 

BD 

43 

61 


JSR 

NXTCH 

EAT CHARACTER 

532E 

BD 

43 

B5 


JSR 

GETHEX 

INPUT HEX 

5331 

25 

06 



BCS 

CNUM6 

ERROR? 

5333 

20 

03 



BRA 

CNUM4 


5335 

BD 

43 

EE 

CNUM2 

JSR 

INDEC 

GET DECIMAL 

5338 

39 



CNUM4 

RTS 


RETURN 

5339 

20 

4C 


CNUM6 

BRA 

D0ASM6 

REPORT ERROR 





* 

* PRINT 

* 

STACK 

CONTENTS 


533B 

BD 

43 

EE 

PSTK 

JSR 

INDEC 

GET COUNT 

533E 

25 

F9 



BCS 

CNUM6 

ERROR? 
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5340 

B6 

40 

5E 


LDA 

A 

VALUE+1 

GET NUMBER 

5343 

26 

02 



BNE 


PSTK0 


5345 

86 

06 



LDA 

A 

#6 

SET DEFAULT 

5347 

FE 

40 

91 

PSTK0 

LDX 


SP 

GET S POINTER 

534A 

08 



PSTK1 

INX 



BUMP POINTER 

534B 

4A 




DEC 

A 


DEC THE COUNT 

534C 

26 

FC 



BNE 


PSTK1 


534E 

BC 

40 

91 

PSTK2 

CPX 


SP 

FINISHED? 

5351 

27 

CF 



BEQ 


CALC9 


5353 

BD 

42 

94 


JSR 


PCRLF 

PRINT CR & LF 

5356 

BD 

49 

4F 


JSR 


OUTSP 

PRINT SPACE 

5359 

BD 

43 

29 


JSR 


OUTHEX 

PRINT CONTENTS 

535C 

09 




DEX 



DEC POINTER 

535D 

20 

EF 



BRA 


PSTK2 

REPEAT 


* 

* DO LINE ASSEMBLV 
>*< 


535F 

BD 

43 

B5 

DOASM 

JSR 

GETHEX 

GET ADDRESS 

5362 

25 

23 



BCS 

D0ASM6 

ERROR? 

5364 

FF 

40 

5F 


STX 

POINT 

SAVE POINTER 

5367 

BD 

42 

94 

D0ASM2 

JSR 

PCRLF 

PRINT CR & LF 

536A 

BD 

49 

4F 


JSR 

OUTSP 

PRINT SPACE 

536D 

CE 

40 

5F 


LDX 

#POINT 

POINT TO ADDRESS 

5370 

BD 

43 

26 


JSR 

OUTADR 

PRINT IT 

5373 

BD 

49 

4F 


JSR 

OUTSP 

PRINT SPACE 

5376 

BD 

42 

3C 


JSR 

INBUF 

GET LINE 

5379 

BD 

43 

7E 


JSR 

SKPSPC 

SKIP SPACES 

537C 

81 

0D 



CMP A 

#$D 

IS IT NULL? 

537E 

27 

04 



BEQ 

D0ASM4 


5380 

8D 

08 



BSR 

ASML 

ASMBL LINE 

5382 

20 

E3 



BRA 

D0ASM2 

REPEAT 

5384 

7E 

41 

95 

D0ASM4 

JMP 

EXEC 

RETURN 

5387 

7E 

41 

CE 

D0ASM6 

JMP 

SYNER 

REPORT ERROR 


* 

* DO ASSEMBLY 

* 


538A 

86 

50 

ASML 

LDA 

A 

#$50 

SET DEFAULT INHER 

538C 

B7 

40 

B1 

STA 

A 

BTVP 


538F 

7F 

40 

6F 

CLR 


MOD 

CLEAR MODE 

5392 

CE 

40 

70 

LDX 


#OPND 

POINT TO STORAGE 

5395 

BD 

43 

61 

JSR 


NXTCH 

GET MNEMONIC 

5398 

84 

5F 


AND 

A 

#$5F 

MAKE UPPER 

539A 

A7 

00 


STA 

A 

0/ X 

SAVE IN MEMORY 

539C 

BD 

43 

61 

JSR 


NXTCH 


539F 

84 

5F 


AND 

A 

#$5F 


53A1 

A7 

01 


STA 

A 

1, X 


53A3 

BD 

43 

61 

JSR 


NXTCH 


53A6 

84 

5F 


AND 

A 

#$5F 

MAKE UPPER 

53A8 

A7 

02 


STA 

A 

2, X 


53AA 

BD 

43 

94 

JSR 


PRVW 

CHECK CHARACTER 


51 
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53AD 

81 

0D 



CMP 

A 

#$D 

IS IT CR? 

53AF 

27 

56 



BED 


ASML7 


53B1 

BD 

43 

42 


JSR 


CLASS 

CLASSIFY CHAR 

53B4 

25 

18 



BCS 


ASML4 


53B6 

84 

5F 



AND 

A 

#$5F 

MAKE UPPER CASE 

53B8 

81 

41 



CMP 

A 

# ' A 

IS IT 'A'? 

53BA 

26 

05 



BNE 


ASML3 


53BC 

7C 

48 

6F 


INC 


MOD 

SET MOD 

53BF 

20 

0A 



BRA 


ASML35 


53C1 

81 

42 


ASML3 

CMP 

A 

# ' B 

IS IT 'B'? 

53C3 

26 

09 



BNE 


ASML4 


53C5 

7C 

40 

6F 


INC 


MOD 


53C8 

7C 

40 

6F 


INC 


MOD 

SET MOD 

53CB 

BD 

43 

61 

ASML35 

JSR 


NXTCH 

GET CHARACTER 

53CE 

BD 

43 

7E 

ASML4 

JSR 


SKPSPC 

SKIP SPACES 

53D1 

81 

0D 



CMP 

A 

#$D 

END OF LINE? 

53D3 

27 

32 



BEQ 


ASML7 


53D5 

BD 

43 

94 


JSR 


PRVW 

CHECK CHARACTER 

53D8 

81 

23 



CMP 

A 

#'# 

IS IT '#'? 

53DA 

27 

19 



BEQ 


ASML6 


53DC 

BD 

53 

24 


JSR 


CNUM 

GET NUMBER 

53DF 

B6 

40 

68 


LDA 

A 

LSTTRM 

CHECK TERM 

53E2 

81 

2C 



CMP 

A 


IS IT COMMA 

53E4 

26 

0B 



BNE 


RSML5 

IF SO, INDEXED 

53E6 

BD 

43 

61 


JSR 


NXTCH 

GET CHARACTER 

53E9 

81 

58 



CMP 

A 

#'X 

IS IT X? 

53EB 

26 

9A 



BNE 


D0ASM6 

ERROR? 

53ED 

86 

30 



LDA 

A 

#$30 

SET TYPE 

53EF 

20 

13 



BRA 


ASML65 


53F1 

86 

40 


ASML5 

LDA 

A 

#$40 

SET EXTENDED 

53F3 

20 

0F 



BRA 


ASML65 


53F5 

BD 

43 

61 

ASML6 

JSR 


NXTCH 

EAT '#' 

53F8 

BD 

43 

94 


JSR 


PRVW 

CHECK NEXT 

53FB 

81 

27 



CMP 

A 

#" 

IS IT "'"? 

53FD 

27 

29 



BEQ 


ASML8 


53FF 

BD 

53 

24 


JSR 


CNUM 

GET NUMBER 

5492 

86 

10 


ASML63 

LDA 

R 

#$10 

SET IMMEDIATE 

5404 

B7 

40 

B1 

ASML65 

STA 

A 

BTVP 

SAVE TYPE 

5407 

BD 

54 

36 

ASML7 

JSR 


FNDMN 

FIND CODE 

540A 

FE 

40 

5F 


LDX 


POINT 

GET POINTER 

540D 

A7 

00 



STA 

A 

0, X 

STUFF OPCODE 

540F 

Cl 

10 



CMP 

B 

#$10 


5411 

27 

10 



BEQ 


ASML77 


5413 

Cl 

30 



CMP 

B 

#$30 


5415 

26 

06 



BNE 


ASML75 


5417 

08 




INX 



BUMP POINTER 

5418 

B6 

40 

5D 


LDA 

A 

VALUE 

GET NUMBER 

541B 

A7 

00 



STA 

A 

0, X 


541D 

08 



ASML75 

INX 



BUMP POINTER 

541E 

B6 

40 

5E 


LDA 

A 

VALUE+1 

GET LSB 

5421 

A7 

00 



STA 

A 

0, X 


5423 

08 



ASML77 

INX 



BUMP ONE MORE 

5424 

FF 

40 

5F 


STX 


POINT 

SAVE POS 

5427 

39 




RTS 



RETURN 
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5428 

BD 

43 

61 

ASML8 

JSR 


NXTCH 

EAT 

542B 

BD 

43 

61 


JSR 


NXTCH 

GET ASCII CHAR 

542E 

7F 

40 

5D 


CLR 


VALUE 


5431 

B7 

40 

5E 


STA 

A 

VALUE+1 

SAVE VALUE 

5434 

20 

CC 



BRA 


ASML63 






* 

* FIND 

* 

MNEMONIC 


5436 

CE 

5B 

00 

FNDMN 

LDX 


#OPTAB 

SET POINTER 

5439 

7F 

40 

67 


CLR 


CNTR 


543C 

FF 

40 

C2 

FNDMN1 

STX 


OPPNT 

SAVE POS 

543F 

B6 

40 

70 


LDA 

A 

OPND 

GET CHARACTERS 

5442 

F6 

40 

71 


LDA 

B 

OPND+1 


5445 

A1 

00 



CMP 

A 

0, X 

COMPARE TO TABLE 

5447 

26 

0D 



BNE 


FNDMN2 


5449 

El 

01 



CMP 

B 

1, X 


544B 

26 

09 



BNE 


FNDMN2 


544D 

36 




PSH 

A 


SAVE CHAR 

544E 

B6 

40 

72 


LDA 

A 

OPND+2 

GET 3RD CHAR 

5451 

A1 

02 



CMP 

A 

2, X 

COMPARE 

5453 

32 




PIJL 

A 


RESTORE 

5454 

27 

0C 



BEQ 


FNDMN4 


5456 

08 



FNDMN2 

INX 



MOVE TO NEXT ENTRV 

5457 

08 




I NX 




5458 

08 




INX 




5459 

08 




INX 




545A 

7C 

40 

67 


INC 


CNTR 


545D 

26 

DD 



BNE 


FNDMN1 

FINISHED? 

545F 

7E 

41 

CE 


JMP 


SVNER 

REPORT ERROR 

5462 

F6 

40 

67 

FNDMN4 

LDA 

B 

CNTR 

GET OPCODE 

5465 

CE 

5F 

00 


LDX 


#OPTAB+1024 

5468 

BD 

44 

2D 


JSR 


ADDBX 

ADD TO POINTER 

546B 

FF 

40 

C4 


STX 


0PPNT2 

SAVE POS 

546E 

E6 

00 



LDA 

B 

0, X 

GET CODE 

5470 

C4 

0F 



AND 

B 

#$F 

MASK BITS 

5472 

27 

0E 



BEQ 


FNDM45 


5474 

Cl 

02 



CMP 

B 

#2 

MODIFIER? 

5476 

22 

0A 



BHI 


FNDM45 


5478 

FI 

40 

6F 


CMP 

B 

MOD 

CHECK MODIFIER 

547B 

27 

0A 



BEQ 


FNDMN5 


547D 

FE 

40 

C2 

FNDM42 

LDX 


OPPNT 

SET POINTER 

5480 

20 

D4 



BRA 


FNDMN2 

REPEAT 

5482 

7D 

40 

6F 

FNDM45 

TST 


MOD 

CHECK MODIFIER 

5485 

26 

F6 



BNE 


FNDM42 


5487 

Cl 

07 


FNDMN5 

CMP 

B 

#7 

CHECK TVPE 

5489 

24 

11 



BHS 


FNDMN6 


548B 

Cl 

03 



CMP 

B 

#3 


548D 

27 

18 



BEQ 


FNDMN7 

RELATIVE TVPE? 

548F 

Cl 

04 



CMP 

B 

#4 


5491 

27 

14 



BEQ 


FNDMN7 


5493 

E6 

00 



LDA 

B 

0, X 

GET CODE 

5495 

C4 

70 



AND 

B 

#$70 

GET ADDRESS TVPE 
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54 


5497 

FI 

40 

B1 


CUP 

B 

BTVP 

COMPARE 

549R 

26 

El 



BNE 


FNDM42 


549C 

FE 

40 

C2 

FNDMN6 

LDX 


OPPNT 

GET POINTER 

549F 

E6 

03 



LDfl 

B 

3/ X 

GET COUNTS 

54R1 

C4 

30 



AND 

B 

#*30 

GET BYTE COUNT 

54R3 

B6 

40 

67 


LDR 

R 

CNTR 

GET OPCODE 

54R6 

39 




RTS 



RETURN 

54R7 

FE 

40 

5F 

FNDMN7 

LDX 


POINT 

GET ADDRESS 

54RR 

08 




INX 



BUMP BY 2 

54RB 

08 




INX 




54RC 

FF 

40 

61 


STX 


P0INT2 

SAVE NEW RDDR 

54RF 

B6 

40 

5D 


LDR 

R 

VALUE 

GET REL ADDRESS 

54B2 

F6 

40 

5E 


LDR 

B 

VRLUE+1 


54B5 

F0 

40 

62 


SUB 

B 

P0INT2+1 

SUBTRRCT VALUES 

54B8 

B2 

40 

61 


SBC 

R 

P0INT2 


54BB 

B7 

40 

5D 


STR 

R 

VALUE 

SAVE RESULT 

54BE 

F7 

40 

5E 


STR 

B 

VRLUE+1 


54C1 

20 

D9 



BRR 


FNDMN6 

FINISH UP 





* 

+ SET I 

* 

TRRP 



54C3 

BD 

4C 

69 

ITRRP 

JSR 


TSTON 

CHECK ON/OFF 

54C6 

26 

07 



BNE 


ITRRP2 


54C8 

86 

FF 



LDR 

R 

#*FF 

SET ON 

54CR 

B7 

40 

RB 


STR 

R 

ITRF 


54CD 

20 

03 



BRR 


ITRRP4 


54CF 

7F 

40 

RB 

ITRRP2 

CLR 


ITRF 

TURN OFF 

54D2 

7E 

41 

95 

ITRRP4 

JMP 


EXEC 

RETURN 





* 

♦ CLEAR 

* 

PROTECTION TRBLES 

54D5 

BD 

4C 

63 

CLP 

JSR 


TSTTRM 

CHECK TERM 

54D8 

26 

06 



BNE 


CLP2 


54DR 

BD 

41 

7C 


JSR 


CLRPR 

CLEAR ALL TRBLES 

54DD 

7E 

41 

95 

CLP1 

JMF 


EXEC 

RETURN 

54E0 

BD 

43 

61 

CLP2 

JSR 


NXTCH 

GET CHARACTER 

54E3 

84 

5F 



RND 

fl 

#*5F 

MAKE UPPER CASE 

54E5 

81 

53 



CMP 

fl 

#"S 

IS IT S? 

54E7 

27 

0F 



BEQ 


CLP4 


54E9 

81 

58 



CMP 

fl 

#'X 

IS IT X? 

54EB 

27 

13 



BEQ 


CLP5 


54ED 

81 

57 



CMP 

fl 

#'W 

IS IT W? 

54EF 

27 

17 



BEQ 


CLP6 


54F1 

81 

4D 



CMP 

R 

#'M 

IS IT M? 

54F3 

27 

IB 



BEQ 


CLP7 


54F5 

7E 

41 

CE 


JMP 


SVNER 

REPORT ERROR 

54F8 

CE 

3F 

00 

CLP4 

LDX 


#SMTRB 

POINT TO SIM TAB 

54FB 

FF 

40 

C6 


STX 


SMEND 

SET END 

54FE 

20 

16 



BRR 


CLP8 


5580 

CE 

3F 

20 

CLP5 

LDX 


#EXTRB 

POINT TO EX TAB 
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5593 

FF 

40 

C8 


STX 


EXEND 

SET END 

5506 

20 

0E 



BRA 


CLP8 


5508 

CE 

3F 

40 

CLP6 

LDX 


#WPTAB 

POINT TO WP TAB 

550B 

FF 

40 

CA 


STX 


WPEND 

SET END 

550E 

20 

06 



BRA 


CLP8 


5510 

CE 

3F 

60 

CLP7 

LDX 


#MTAB 

POINT TO MEM TAB 

5513 

FF 

40 

CC 


STX 


MEND 


5516 

BD 

43 

61 

CLP8 

JSR 


NXTCH 

GET CHARACTER 

5519 

81 

0D 



CMP 

A 

#*D 

IS IT TERM? 

551B 

27 

C0 



BEQ 


CLP1 


551D 

20 

Cl 



BRA 


CLP2 

REPEAT 





* 

* DUMP 

♦ 

MEMORV 

IN HEX AND 

ASCII 

551F 

BD 

43 

B5 

DUMP 

JSR 


GETHEX 

GET ADDRESS 

5522 

25 

62 



BCS 


DUMP6 


5524 

BD 

42 

94 

DUMP1 

JSR 


PCRLF 

PRINT CR & LF 

5527 

FE 

40 

5D 


LDX 


VALUE 

GET ADDRESS 

552A 

86 

10 

it 


LDA 

A 

#16 

SET COUNT 

552C 

B7 

40 

67 


STA 

A 

CNTR 


552F 

C6 

10 


DUMP2 

LDA 

6 

#16. 

SET COUNTER 

5531 

FF 

40 

5F 


STX 


POINT 

SAVE POSITION 

5534 

CE 

40 

5F 


LDX 


#POINT 


5537 

BD 

43 

26 


JSR 


OUTADR 

PRINT ADDRESS 

553A 

BD 

49 

4F 


JSR 


OUTSP 

PRINT SPACE 

553D 

FE 

40 

5F 


LDX 


POINT 

RESET POINTER 

5540 

37 



DUMP25 

PSH 

B 


SAVE COUNT 

5541 

BD 

43 

29 


JSR 


OUTHEX 


5544 

BD 

49 

4F 


JSR 


OUTSP 

PRINT DATA & SPACE 

5547 

08 




INX 



BUMP TO NEXT 

5548 

33 




PUL 

B 


RESET COUNT 

5549 

5A 




DEC 

B 


DEC THE COUNT 

554A 

26 

F4 



BNE 


DUMP25 


554C 

FE 

40 

5F 


LDX 


POINT 

RESET POINTER 

554F 

C6 

10 

^ f; 


LDA 

B 

#16. 

RESET COUNT 

5551 

A6 

00 


DUMP27 

LDA 

A 

0, X 

GET CHARACTER 

5553 

84 

7F 



AND 

A 

#$7F 

MASK PARITV 

5555 

81 

IF 



CMP 

A 

#$1F 

CONTROL? 

5557 

22 

02 



BHI 


DUMP28 


5559 

86 

5F 



LDA 

A 

#'_ 

SET UP 

555B 

BD 

41 

09 

DUMP28 

JSR 


PUTCHR 

OUTPUT CHARACTER 

555E 

08 




INX 



BUMP TO NEXT 

555F 

5A 




DEC 

B 


DEC THE COUNT 

5560 

26 

EF 



BNE 


DUMP27 


5562 

BD 

42 

94 


JSR 


PCRLF 

PRINT CR & LF 

5565 

7A 

40 

67 


DEC 


CNTR 

DEC THE COUNT 

5568 

26 

C5 



BNE 


DUMP2 


556A 

7C 

40 

5D 


INC 


VALUE 

BUMP ADDRESS 

556D 

BD 

41 

06 

DUMPS 

JSR 


GETCHR 

GET RESPONSE 

5570 

81 

0D 



CMP 

A 

#*D 

IS IT RETURN? 

5572 

27 

12 



BEQ 


DUMP6 


5574 

84 

5F 



AND 

A 

#$5F 

MAKE UPPER CASE 


55 
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56 


5576 

81 

46 



CMP 

R 

#'F 

IS IT 'F'? 

5578 

27 

RR 



BEQ 


DUMP1 


557R 

81 

42 



CMP 

R 

#'B 

IS IT 'B'? 

557C 

26 

EF 



BNE 


DUMP5 


557E 

7R 

40 

5D 


DEC 


VRLUE 

DEC THE RDDRESS 

5581 

7fl 

40 

5D 


DEC 


VRLUE 


5584 

20 

9E 



BRR 


DUMP1 


5586 

7E 

41 

95 

DUMP6 

JMP 


EXEC 

RETURN TO EXEC 





♦ 

* DO DOS COMMAND 

* 


5589 

FE 

RC 

14 

DODOS 

LDX 


DOSBUF 

SAVE DOS POINTER 

558C 

FF 

40 

61 


STX 


POINTS 


558F 

FE 

40 

50 


LDX 


BUFPNT 


5592 

FF 

RC 

14 


STX 


DOSBUF 

SET DOS POINTER 

5595 

BD 

RD 

4B 


JSR 


DOCMND 

GO DO COMMAND 

5598 

FE 

40 

61 


LDX 


POINTS 

RESET POINTER 

559B 

FF 

RC 

14 


STX 


DOSBUF 


559E 

BD 

B4 

03 


JSR 


FMSCLS 

CLOSE RLL 

55R1 

26 

E3 



BRR 


DUMPS 






* 

* FIND 

* 

STRING 

IN MEMORY 


55R3 

BD 

4C 

DD 

FIND 

JSR 


GETRNG 

GET RANGE 

55R6 

FE 

40 

63 


LDX 


FIRST 

SET START POS 

55R9 

FF 

40 

61 


STX 


POINTS 


55RC 

CE 

40 

00 


LDX 


#LINBUF 

POINT TO BUFFER 

55RF 

FF 

40 

56 


STX 


DRTPNT 


55B2 

BD 

43 

94 


JSR 


PRVW 

CHECK NEXT CHAR 

55B5 

81 

22 



CMP 

fi 


IS IT 

55B7 

26 

0F 



BNE 


FIND3 


55B9 

BD 

43 

61 


JSR 


NXTCH 

USE THE CHAR 

55BC 

BD 

43 

61 

FIND2 

JSR 


NXTCH 

GET CHARACTER 

55BF 

81 

0D 



CMP 

fl 

#$D 

IS TI CR? 

55C1 

27 

19 



BEQ 


FIND4 


55C3 

R7 

00 



STR 

fl 

0, X 

SAVE CHARACTER 

55C5 

08 




INX 



BUMP POINTER 

55C6 

20 

F4 



BRR 


FIND2 


55C8 

BD 

43 

B5 

FIND3 

JSR 


GETHEX 

GET HEX VALUE 

55CB 

FE 

40 

56 


LDX 


DRTPNT 


55CE 

5D 




TST 

B 


RNV HEX? 

55CF 

27 

0B 



BEQ. 


FIND4 


55D1 

B6 

40 

5E 


LDR 

R 

VRLUE+1 

GET VALUE 

55D4 

R7 

00 



STR 

R 

0, X 

SAVE CHAR 

55D6 

08 




INX 




55D7 

FF 

40 

56 


STX 


DRTPNT 

SAVE POSITION 

55DR 

20 

EC 



BRR 


FIND3 

REPERT 

55DC 

FF 

40 

56 

FIND4 

STX 


DRTPNT 

MARK END 

55DF 

CE 

40 

00 

FIND5 

LDX 


#LINBUF 

POINT TO BUFFER 

55E2 

FF 

40 

5F 

FIND6 

STX 


POINT 

SAVE POSITION 
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55E5 

A6 

00 



LDA 

A 

0/ X 

55E7 

FE 

40 

63 


LDX 


FIRST 

55EA 

BC 

40 

65 


CPX 


LAST 

55ED 

27 

2E 



BEQ 


FIND8 

55EF 

A1 

00 



CMP 

A 

0, X 

55F1 

26 

IE 



BNE 


FIND7 

55F3 

08 




INX 



55F4 

FF 

40 

63 


STX 


FIRST 

55F7 

FE 

40 

5F 


LDX 


POINT 

55FA 

08 




INX 



55FB 

BC 

40 

56 


CPX 


DATPNT 

55FE 

26 

E2 



BNE 


FINDS 

5600 

CE 

40 

61 


LDX 


#POINT£ 

5603 

BD 

42 

94 


JSR 


PCRLF 

5606 

BD 

43 

26 


JSR 


OUTADR 

5609 

FE 

40 

63 


LDX 


FIRST 

560C 

FF 

40 

61 


STX 


POINTS 

560F 

20 

CE 



BRA 


FIND5 

5611 

FE 

40 

61 

FIND7 

LDX 


P0INT2 

5614 

08 




INX 



5615 

FF 

40 

63 


STX 


FIRST 

5618 

FF 

40 

61 


STX 


P0INT2 

561B 

20 

C2 



BRA 


FIND5 

561D 

7E 

41 

95 

FIND8 

JMP 


EXEC 


GET CHARACTER 
FINISHED? 

COMPARE CHARACTERS 
BUMP TO NEXT 


BUMP TO NEXT HERE TOO 
END? 

FOUND IT! 

PRINT CR & LF 
PRINT ADDRESS 


REPEAT 

RESET POINTER 


REPEAT 
GO TO EXEC 


* FILL MEMORV 

* 


5620 BD 4C DD 
5623 BD 43 B5 
5626 B6 40 5E 
5629 FE 40 63 
562C A7 00 
562E BC 40 65 
5631 27 EA 

5633 08 

5634 20 F6 


FILL 


FILL2 


JSR 

JSR 

LDA A 

LDX 

STA A 

CPX 

BEQ 

INX 

BRA 


GETRNG 

GETHEX 

VALUE+1 

FIRST 

0/ X 

LAST 

FINDS 

FILLS 


GET RANGE 
GET FILL CHAR 

POINT TO START 
STORE CHAR 
FINISHED? 

BUMP TO NEXT 
REPEAT 


* SET REAL TIME BREAKPOINT 


5636 

BD 

4C 

63 

* 

RT 

JSR 


TSTTRM 

5639 

26 

07 



BNE 


RT2 

563B 

7D 

40 

69 


TST 


RTBF 

563E 

27 

7D 



BEQ 


RTB4 

5640 

20 

66 



BRA 


RTB2 

5642 

BD 

43 

B5 

RT2 

JSR 


GETHEX 

5645 

25 

79 



BCS 


RTB6 

5647 

A6 

00 



LDA 

A 

0, X 

5649 

B7 

40 

6C 


STA 

A 

RTDAT 

564C 

A6 

01 



LDA 

A 

1/ X 

564E 

E6 

02 



LDA 

B 

2; X 


CHECK TERM 
IS ONE SET? 

GET ADDRESS 

GET BVTES 
SAVE IN TEMPS 
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5650 

5653 

5656 

5658 

565R 

565B 

565D 

565F 

5662 

5665 

5668 

566B 

566E 

5678 

5673 

5675 

5678 

567B 

567E 

5681 

5684 


B7 40 6D 
F7 40 6E 
86 7E 
R7 00 
01 

fll 00 
26 25 
B7 40 D4 
CE 56 87 
FF 40 61 
FE 40 5D 
B6 40 61 
R7 01 
B6 40 62 
R7 02 
7C 40 69 
FF 40 6R 
FE 40 93 
FF 40 D5 
7E 47 02 
7E 41 C6 


RT4 


STA 

A 

RTDAT+1 

STR 

B 

RTDAT+2 

LDA 

A 

#*7E 

STA 

NOP 

A 

0, X 

CMP 

A 

0, X 

BNE 


RT4 

STA 

A 

OP 

LDX 


#RTB 

STX 


POINTS 

LDX 


VALUE 

LDA 

A 

P0INT2 

STA 

A 

1, X 

LDA 

A 

P0INT2+1 

STA 

A 

a, X 

INC 


RTBF 

STX 


RTAD 

LDX 


PC 

STX 


OP+1 

JMP 


TRC0L5 

JMP 


ILIN 


SET UP 'JUMP' 
DELRV 

CHECK MEMORY 

SET OP TOO 
SET POINTER 

RESET X 
SET ADDRESS 


SET FLAG 
SAVE ADDRESS 
GET PC 
SET IN OP 
GO EXECUTE 
REPORT ERROR 


♦ 

* PROCESS REAL TIME BREAKPOINT 

* 


5687 

36 



RTB 

PSH 

A 


SAVE A 

5688 

07 




TPA 



GET STATUS 

5689 

B7 

40 

8C 


STA 

A 

CC 


568C 

32 




PUL 

A 


RESTORE A 

568D 

B7 

40 

8D 


STA 

A 

AR 

SAVE ALL REGISTERS 

5690 

F7 

40 

8E 


STA 

B 

BR 


5693 

FF 

40 

8F 


STX 


XR 


5696 

BF 

40 

91 


STS 


SP 


5699 

BE 

40 

95 


LDS 


SSP 

RESET STACK POINTER 

569C 

FE 

40 

6A 


LDX 


RTAD 

GET ADDRESS 

569F 

FF 

40 

93 


STX 


PC 

SAVE AS NEW PC 

56A2 

FF 

40 

97 


STX 


OLDPC 


56A5 

BD 

48 

D1 


JSR 


PRREG2 

PRINT REGISTERS 

56A8 

FE 

40 

6A 

RTB2 

LDX 


RTAD 

GET ADDRESS 

56AB 

B6 

40 

6C 


LDA 

A 

RTDAT 

RESET INSTRUCTIONS 

56AE 

A7 

00 



STA 

A 

0, X 


56B0 

B6 

40 

6D 


LDA 

A 

RTDAT+1 


56B3 

A7 

01 



STA 

A 

1, X 


56B5 

B6 

40 

6E 


LDA 

A 

RTDAT+2 


56B8 

A7 

02 



STA 

A 

2/ X 


56BA 

7F 

40 

69 


CLR 


RTBF 

CLEAR FLAG 

56BD 

7E 

41 

95 

RTB4 

JMP 


EXEC 

RETURN TO EXEC 

56C0 

7E 

41 

CE 

RTB6 

JMP 


SYNER 

REPORT ERROR 





* 

* CHECK 

SP 1 

PROTECTION 



58 
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56C3 

7D 

40 

9B 

CHKSP 

TST 


MODE 

CHECK MODE 

56C6 

27 

34 



BEQ 


CHKSP4 


56C8 

4F 




CLR 

A 



56C9 

5D 




TST 

B 


OFFSET NEGATIVE? 

56CA 

2A 

01 



BPL 


CHKSP1 


56CC 

43 




COM 

A 


SIGN EXTEND 

56CD 

FB 

40 

92 

CHKSP1 

ADD 

B 

SP+1 

ADD TO SP 

56D0 

B9 

40 

91 


ADC 

A 

SP 


56D3 

F7 

40 

84 


STA 

B 

TSP+1 

SAVE RESULT 

56D6 

B7 

40 

83 


STA 

A 

TSP 


56D9 

B1 

40 

81 


CMP 

A 

MAXSP 

CHECK IF MAX SP 

56DC 

22 

0D 



BHI 


CHKSP3 


56DE 

25 

05 



BLO 


CHKSP2 


56E0 

FI 

40 

82 


CMP 

B 

MAXSP+1 

CHECK LSB 

56E3 

24 

06 



BHS 


CHKSP3 


56E5 

B7 

40 

81 

CHKSP2 

STA 

A 

MAXSP 

SAVE NEW MAX 

56E8 

F7 

40 

82 


STA 

B 

MAXSP+1 


56EB 

BD 

4B 

6E 

CHKSP3 

JSR 


MPR 

CHECK PROTECTION 

56EE 

26 

0C 



BNE 


CHKSP4 


56F0 

FE 

40 

97 


LDX 


OLDPC 

RESET PC 

56F3 

FF 

40 

93 


STX 


PC 


56F6 

CE 

5A 

38 


LDX 


#MSPST 

POINT TO STRING 

56F9 

7E 

4B 

34 


JMP 


PRCH3 

PRINT IT 

56FC 

39 



CHKSP4 

RTS 



RETURN 





* 

* PRINT 

* 

STACK 

DEPTH 


56FD 

BD 

42 

94 

DEPTH 

JSR 


PCRLF 

PRINT CR & LF 

5700 

CE 

40 

81 


LDX 


#MAXSP 

POINT TO MAX 

5703 

BD 

43 

26 


JSR 


OUTADR 

PRINT IT 

5706 

20 

11 



BRA 


FLAG5 






♦ 

♦ SET FLAG LOCATION 

♦ 


5708 

7F 

40 

AO 

FLAG 

CLR 


FLAGB 


570B 

BD 

4C 

63 


JSR 


TSTTRM 

CHECK TERM 

570E 

27 

09 



BEQ 


FLAG5 


5710 

BD 

4C 

37 


JSR 


HEQVAL 

GET ADDRESS 

5713 

FF 

40 

9E 


STX 


FLAGA 

SAVE ADDRESS 

5716 

7C 

40 

A0 


INC 


FLAGB 

SET FLAG BVTE 

5719 

7E 

41 

95 

FLAG5 

JMP 


EXEC 

RETURN 





* 

* PRINT 

* 

SINGLE 

DECIMAL 


571C 

B7 

40 

5E 

SINDEC 

STA 

A 

VALUE+1 

SAVE VALUE 

571F 

7F 

40 

5D 


CLR 


VALUE 


5722 

5F 




CLR 

B 


CLEAR FLAG 

5723 

CE 

40 

5D 


LDX 


#VALUE 

POINT TO VALUE 
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5726 7E 42 D5 


JMP OUTDEC PRINT NUMBER 


* 

* PRINT MACHINE CONFIGURATION 

♦ 


5729 

BD 

42 

94 

MRCH 

JSR 

PCRLF 

PRINT CR & LF 

572C 

CE 

59 

64 


LDX 

#XMM 

POINT TO M STR 

572F 

8D 

27 



BSR 

MRCH2 

PRINT IT 

5731 

B6 

40 

9B 


LDR R 

MODE 

GET MODE 

5734 

8D 

E6 



BSR 

SINDEC 

PRINT IT 

5736 

CE 

59 

67 


LDX 

#XMT 

PRINT TRACE VALUE 

5739 

8D 

ID 



BSR 

MRCH2 


573B 

B6 

40 

9D 


LDR R 

TRCF 


573E 

8D 

DC 



BSR 

SINDEC 

PRINT NEST VALUE 

5740 

CE 

59 

58 


LDX 

#NST 

5743 

8D 

13 



BSR 

MRCH2 


5745 

B6 

40 

R5 


LDR R 

NSTRP 


5748 

8D 

D2 



BSR 

SINDEC 

PRINT INSTRUCTION COUNT 

574A 

CE 

59 

5C 


LDX 

#XVST 

574D 

8D 

09 



BSR 

MACH2 


574F 

CE 

40 

77 


LDX 

#MRXC 


5752 

5F 




CLR B 



5753 

BD 

42 

D5 


JSR 

OUTDEC 


5756 

20 

03 



BRfl 

MRCH4 


5758 

7E 

42 

87 

MRCH2 

JMP 

PDRTfll 

PRINT STRING 

575B 

CE 

59 

50 

MRCH4 

LDX 

#SPST 

PRINT STOP ADDRESS 

575E 

8D 

F8 



BSR 

MRCH2 


5760 

CE 

40 

73 


LDX 

#END 


5763 

BD 

43 

26 


JSR 

OUTRDR 


5766 

CE 

59 

6B 


LDX 

#XMIT 

PRINT I TRRP STATE 

5769 

8D 

ED 



BSR 

MRCH2 


576B 

B6 

40 

RB 


LDR fi 

ITRF 


576E 

8D 

24 



BSR 

PRONF 

PRINT ON/OFF 

5770 

CE 

59 

70 


LDX 

#XMXT 

PRINT XFR TRRP STATE 

5773 

8D 

E3 



BSR 

MRCH2 


5775 

B6 

40 

R6 


LDR R 

XFRT 


5778 

8D 

1A 



BSR 

PRONF 

PRINT ON/OFF 

577R 

CE 

59 

75 


LDX 

#XMIRQ 

PRINT IRQ COUNT 

577D 

8D 

D9 



BSR 

MRCH2 


577F 

CE 

40 

7D 


LDX 

#IRQC 


5782 

5F 




CLR B 



5783 

BD 

42 

D5 


JSR 

OUTDEC 


5786 

CE 

59 

7B 


LDX 

#XMNMI 

PRINT NMI COUNT 

5789 

8D 

CD 



BSR 

MRCH2 


578B 

CE 

40 

79 


LDX 

#NMIC 


578E 

5F 




CLR B 



578F 

BD 

42 

D5 


JSR 

OUTDEC 


5792 

20 

85 


MRCH6 

BRR 

FLAGS 

RETURN TO EXEC 

/ 





* 

* PRINT 

ON OR 

OFF STATUS 



* 
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5794 

27 

05 


PRONF 

BEQ 

PR0NF2 



5796 

CE 

59 

81 


LDX 

#XONST 

PRINT 

ON 

5799 

20 

BD 



BRA 

MACH2 



579B 

CE 

59 

84 

PR0NF2 

LDX 

#XOFST 

PRINT 

OFF 

579E 

20 

B8 



BRA 

MRCH2 







* 

* CLEAR 

* 

MESSAGE TABLE 



57A0 

CE 

3F 

80 

CLM 

LDX 

#MSGTB 

POINT 

TO TABLE 

57R3 

FF 

40 

B6 


STX 

NXTMSG 

SAVE POINTER 

57A6 

20 

EA 



BRA 

MACH6 




* COMMAND TABLE 


57R8 



COMTBL EQU 

* 

57A8 

41 


FCC 

''ASM'' 

57AB 

00 


FCB 

0 

57AC 

53 

5F 

FDB 

DORSM 

57AE 

42 


FCC 

'B' 

57AF 

00 


FCB 

0 

57B0 

4F 

B7 

FDB 

BRK 

57B2 

42 


FCC 

'BOUND 

57B8 

00 


FCB 

0 

57B9 

4D 

85 

FDB 

BOUNDS 

57BB 

42 


FCC 

'BP' 

57BD 

00 


FCB 

0 

57BE 

52 

05 

FDB 

PBP 

57C0 

43 


FCC 

'CALC' 

57C4 

00 


FCB 

0 

57C5 

52 

BE 

FDB 

CALC 

57C7 

43 


FCC 

'CLB' 

57CA 

00 


FCB 

0 

57CB 

52 

2D 

FDB 

CLB 

57CD 

43 


FCC 

'CLH' 

57D0 

00 


FCB 

0 

57D1 

52 

49 

FDB 

CLH 

57D3 

43 


FCC 

'CLM' 

57D6 

00 


FCB 

0 

57D7 

57 

A0 

FDB 

CLM 

57D9 

43 


FCC 

'CLP' 

57DC 

00 


FCB 

0 

57DD 

54 

D5 

FDB 

CLP 

57DF 

44 


FCC 

'DIS' 

57E2 

00 


FCB 

0 

57E3 

4E 

8E 

FDB 

DIS 

57E5 

44 


FCC 

'DEPTH 

57EA 

00 


FCB 

0 

57EB 

56 

FD 

FDB 

DEPTH 

57ED 

44 


FCC 

'DELRV 

57F2 

00 


FCB 

0 

57F3 

52 

8C 

FDB 

SDELV 

57F5 

44 


FCC 

'DUMP' 
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57F9 

00 


FCB 

0 

57FR 

55 

IF 

FDB 

DUMP 

57FC 

45 


FCC 

'EXIT' 

5800 

00 


FCB 

0 

5801 

41 

0C 

FDB 

WARMS 

5803 

46 


FCC 

'FIND' 

5807 

00 


FCB 

0 

5808 

55 

R3 

FDB 

FIND 

580R 

46 


FCC 

'FILL' 

580E 

00 


FCB 

0 

580F 

56 

20 

FDB 

FILL 

5811 

46 


FCC 

'FLRG' 

5815 

00 


FCB 

0 

5816 

57 

08 

FDB 

FLRG 

5818 

47 


FCC 

'GO' 

581R 

00 


FCB 

0 

581B 

44 

3F 

FDB 

GO 

581D 

48 


FCC 

'HIST' 

5821 

00 


FCB 

0 

5822 

51 

7F 

FDB 

HIST 

5824 

49 


FCC 

'IND' 

5827 

00 


FCB 

0 

5828 

52 

97 

FDB 

SIND 

582R 

49 


FCC 

'INST' 

582E 

00 


FCB 

0 

582F 

4C 

41 

FDB 

INST 

5831 

49 


FCC 

'IRQ' 

5834 

00 


FCB 

0 

5835 

52 

R8 

FDB 

SIRQ 

5837 

49 


FCC 

'ITRRP 

583C 

00 


FCB 

0 

583D 

54 

C3 

FDB 

ITRRP 

583F 

4R 


FCC 

'JUMP' 

5843 

00 


FCB 

0 

5844 

44 

46 

FDB 

JUMP 

5846 

4D 


FCC 

'MEM' 

5849 

00 


FCB 

0 

584R 

4E 

DE 

FDB 

XMEM 

584C 

4D 


FCC 

'MRCH' 

5850 

00 


FCB 

0 

5851 

57 

29 

FDB 

MACH 

5853 

4D 


FCC 

'MODE' 

5857 

00 


FCB 

0 

5858 

4D 

72 

FDB 

CMODE 

585R 

4E 

' 

FCC 

'NEST' 

585E 

00 


FCB 

0 

585F 

4C 

53 

FDB 

NEST 

5861 

4E 


FCC 

'NMI' 

5864 

00 


FCB 

0 

5865 

52 

B3 

FDB 

SNMI 

5867 

50 


FCC 

'PROT' 

586B 

00 


FCB 

0 

586C 

4C 

F9 

FDB 

PROT 

586E 

50 


FCC 

'PAST' 
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5872 

00 


FCB 

5873 

4C 

8C 

FDB 

5875 

52 


FCC 

5878 

00 


FCB 

5879 

48 

BC 

FDB 

587B 

52 


FCC 

5880 

00 


FCB 

5881 

41 

IB 

FDB 

5883 

52 


FCC 

5886 

00 


FCB 

5887 

4E 

5C 

FDB 

5889 

52 


FCC 

588B 

00 


FCB 

588C 

56 

36 

FDB 

588E 

53 


FCC 

5891 

00 


FCB 

5892 

4F 

48 

FDB 

5894 

53 


FCC 

5897 

00 


FCB 

5898 

52 

5E 

FDB 

589A 

53 


FCC 

589F 

00 


FCB 

58A0 

44 

71 

FDB 

58A2 

53 


FCC 

58A7 

00 


FCB 

58A8 

53 

3B 

FDB 

58AA 

53 


FCC 

58B0 

00 


FCB 

58B1 

52 

7A 

FDB 

58B3 

53 


FCC 

58B7 

00 


FCB 

58B8 

4B 

E6 

FDB 

58BA 

53 


FCC 

58BE 

00 


FCB 

58BF 

4E 

CD 

FDB 

58C1 

54 


FCC 

58C6 

00 


FCB 

58C7 

4E 

C2 

FDB 

58C9 

54 


FCC 

58CE 

00 


FCB 

58CF 

4C 

7E 

FDB 

58D1 

54 


FCC 

58D5 

00 


FCB 

58D6 

52 

57 

FDB 

58D8 

58 


FCC 

58D9 

00 


FCB 

58DA 

55 

89 

FDB 

58DC 

58 


FCC 

58DF 

00 


FCB 

58E0 

4E 

40 

FDB 

58E2 

00 


FCB 


TSC ASSEMBLER 

0 

PAST 

'REG' 

0 

DREG 

'RESET' 

0 

COLD 

'RET' 

0 

RTRN 

'RT' 

0 

RT 

'SET' 

0 

SET 

'SIM' 

0 

CSIM 

'START' 

0 

SIMUL 

'STACK' 

0 

PSTK 

'STATES' 

0 

PSTAT 

'STEP' 

0 

SSM 

'STOP' 

0 

SSTOP 

'TRACE' 

0 

STRAC 

'TRAIL' 

0 

TRAIL 

'TSIM' 

0 

TCSIM 

'X' 

0 

DODOS 

'XFR' 

0 

STXFR 

0 END TABLE 


PAGE 


* DECIMAL CONSTANT TABLE 
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58E3 

27 

10 

CONTBL FDB 

10000 CONSTANTS 

58E5 

03 

E8 

FDB 

1000 

58E7 

00 

64 

FDB 

100 

58E9 

00 

0A 

FDB 

10 




+ FUNCTION TABLE 

58EB 

47 

30 

FUNTAB FDB 

PBSR 

58ED 

47 

8A 

FDB 

PJMP 

58EF 

47 

7D 

FDB 

PJSR 

58F1 

47 

B0 

FDB 

PSUBR 

58F3 

48 

51 

FDB 

PRTI 

58F5 

48 

10 

FDB 

PSWI 

58F7 

48 

49 

FDB 

PWAI 




* REGISTER POINTER TABLE 

58F9 

40 

8D 

RGTAB FDB 

AR 

58FB 

40 

8E 

FDB 

BR 

58FD 

40 

8C 

FDB 

CC 

58FF 

40 

99 

FDB 

NESTC 

5981 

40 

91 

FDB 

SP 

5983 

40 

8F 

FDB 

XR 

5905 

40 

93 

FDB 

PC 




* 

* REGISTER TRBLE 

* 

5907 

41 


RGT FCB 

'A/ 1 

5909 

40 

8D 

FDB 

AR 

590B 

42 


FCB 

'B, 1 

590D 

40 

8E 

FDB 

BR 

590F 

43 


FCB 

'C, 1 

5911 

40 

8C 

FDB 

CC 

5913 

4E 


FCB 

'N, 1 

5915 

40 

99 

FDB 

NESTC 

5917 

53 


FCB 

'S, 2 

5919 

40 

91 

FDB 

SP 

591B 

58 


FCB 

'X, 2 

591D 

40 

8F 

FDB 

XR 

591F 

50 


FCB 

'P, 2 

5921 

40 

93 

FDB 

PC 

5923 

00 


FCB 

0 


* 

* TVPE TABLE 

♦ 


5924 

53 

TVPTB 

FCB 

'S, 1, 'R, 2/ 'T, 4, 'U, 8 

592C 

5A 


FCB 

'Z, $10, 'H, $20, 'M, $40, ' J, $80 

5934 

00 


FCB 

0 


* STRINGS 
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5935 

2A 

PRMPT 

FCC 


5937 

04 


FCB 

4 

5938 

20 

CLCP 

FCC 

/ — / 

593A 

04 


FCB 

4 

593B 

57 

WHATST 

FCC 

'WHAT?' 

5948 

04 


FCB 

4 

5941 

43 

COST 

FCC 

'C=' 

5943 

04 


FCB 

4 

5944 

20 

AST 

FCC 

' A=' 

594? 

04 


FCB 

4 

5948 

20 

BST 

FCC 

' B-' 

594B 

04 


FCB 

4 

594C 

20 

XST 

FCC 

' X=' 

594F 

04 


FCB 

4 

5950 

20 

SPST 

FCC 

' S=' 

5953 

04 


FCB 

4 

5954 

20 

PCST 

FCC 

' P=' 

5957 

04 


FCB 

4 

5958 

20 

NST 

FCC 

' N=' 

595B 

04 


FCB 

4 

595C 

20 

XVST 

FCC 

' 1=' 

595F 

04 


FCB 

4 

5960 

20 

FMST 

FCC 

' F=' 

5963 

04 


FCB 

4 

5964 

4D 

XMM 

FCC 

' M= ' 

5966 

04 


FCB 

4 

5967 

20 

XMT 

FCC 

' T=' 

596A 

04 


FCB 

4 

596B 

20 

XMIT 

FCC 

' IT=' 

596F 

04 


FCB 

4 

5970 

20 

XMXT 

FCC 

S 

X 

H 

II 

N 

5974 

04 


FCB 

4 

5975 

20 

XMIRQ 

FCC 

' IRQ=' 

597A 

04 


FCB 

4 

597B 

20 

XMNMI 

FCC 

' NMI=' 

5980 

04 


FCB 

4 

5981 

4F 

XONST 

FCC 

'ON' 

5983 

04 


FCB 

4 

5984 

4F 

XOFST 

FCC 

'OFF' 

5987 

04 


FCB 

4 

5988 

20 

INPST 

FCC 

' IN ' 

598C 

04 


FCB 

4 

598D 

20 

OUTST 

FCC 

' OUT ' 

5992 

04 


FCB 

4 

5993 

2C 

IXST 

FCC 

X' 

5995 

04 


FCB 

4 

5996 

3F 

DELST 

FCC 

'??' 

5998 

04 


FCB 

4 

5999 

0D 0A 

CRLFST 

FDB 

% D0A, 0, 4 

599F 

53 

STST 

FCC 

'STATES 

59A8 

04 


FCB 

4 

59A9 

22 

STPST 

FCC 

'"STOP" 

59B3 

04 


FCB 

4 



AT 





TSC ASSEMBLER PAGE 


66 


TSC DEBUG PACKAGE 


59B4 

49 

CTST 

FCC 

59C2 

04 


FCB 

59C3. 

49 

ILOPST 

FCC 

59D5 

04 


FCB 

59D6 

49 

ITRST 

FCC 

59E0 

04 


FCB 

59E1 

4C 

TRST 

FCC 

59EF 

04 


FCB 

59F0 

53 

SVNST 

FCC 

59FC 

04 


FCB 

59FD 

45 

EXPST 

FCC 

5A08 

04 


FCB 

5A09 

57 

WPST 

FCC 

5A14 

04 


FCB 

5A15 

45 

MMP1ST 

FCC 

5A25 

04 


FCB 

5A26 

52 

MMP2ST 

FCC 

5A37 

04 


FCB 

5A38 

53 

MSPST 

FCC 

5A43 

04 


FCB 

5A44 

54 

TBLOV 

FCC 

5A52 

04 


FCB 

5A53 

57 

WPRST 

FCC 

5A58 

04 


FCB 

5A59 

45 

XPST 

FCC 

5A60 

04 


FCB 

5A61 

4D 

MPST 

FCC 

5A67 

04 


FCB 

5A68 

53 

SMPST 

FCC 

5A70 

04 


FCB 

5A71 

20 

PRTSTR 

FCC 

5A7C 

04 


FCB 

5A7D 

4E 

NSTST 

FCC 

5A88 

04 


FCB 

5A89 

52 

NERST 

FCC 

5A9B 

04 


FCB 

5A9C 

52 

RTRDS 

FCC 

5AA5 

04 


FCB 

5AA6 

4E 

NORTS 

FCC 

5AB5 

04 


FCB 

5AB6 

58 

XFR ST 

FCC 

5AC2 

04 


FCB 

5AC3 

4F 

BOVST 

FCC 

5ACB 

04 


FCB 

5ACC 

4D 

HMONS 

FCC 

5AD7 

04 


FCB 

5AD8 

4F 

OPHST 

FCC 

5AE3 

04 


FCB 

5AE4 

20 

DSHST 

FCC 

5AE7 

04 


FCB 


* 


* MNEMONIC AND 

* 


/Mir 

UiOA A 
Sta a 
Lo l\ A 

IT ft 


\y\f 

IK C-4 

pfH a 

IM «- M A- 

t A 

LSA £ 


a c c 
i-oA A 


"IC TIMEOUT AT ' 

4 

"ILLEGAL OPCODE AT ' 
4 

"I TRAP AT " 

4 

'LAST XFR FROM " 

4 

"SVNTAX ERROR" 

4 

"EP TRAP AT " 

4 

'WP TRAP AT " 

4 

"EX - MP TRAP AT ' 

4 

"REF - MP TRAP AT " 

4 

"SP TRAP AT " 

4 

"TABLE OVERFLOW' 

4 

"WRITE" 

4 

"EXECUTE" 

4 

"MEMORV" 

4 

"SIMULATE" 

4 

" PROTECTION" 

4 

'NC TRAP AT " 

4 

'RTS IN LEVEL 0 AT " 
4 

"RETURN = " 

4 

"NEST LEVEL IS 0" 

4 

"XFR TRAP AT ' 

4 

"OVERFLOW" 

4 

"MON XFR AT " 

4 

"OP HALT AT ' 

4 

4 


INFO TABLE 


* 4 <j>j. 

fc-P-A 

0 IH P W t ft 


z> 

eK'l ^ 

* 

As IA i 

j d cfify 

M A. $ 

$ 3i 

Occ 
fro * 

\ & o 

ihcHA- 
$ &> Q*> C 

P-xL fc 


tfUf CH< 

^ a*® 11 ' 
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5B00 



ORG 

*5B00 

5B00 

2A 

OPTAB 

FCC 


5B03 

00 


FCB 

00 

5B04 

4E 


FCC 

'NOP' 

5B07 

12 


FCB 

*12 

5B08 

2A 


FCC 


5B0B 

00 


FCB 

00 

5B0C 

2A 


FCC 

' *** ' 

5B0F 

00 


FCB 

00 

5B10 

2A 


FCC 

' *** ' 

5B13 

00 


FCB 

00 

5B14 

2A 


FCC 


5B17 

00 


FCB 

00 

5B18 

54 


FCC 

'TAP' 

5B1B 

12 


FCB 

*12 

5B1C 

54 


FCC 

'TPA' 

5B1F 

12 


FCB 

*12 

5BS0 

49 


FCC 

'INX** 

5B23 

14 


FCB 

*14 

5B24 

44 


FCC 

'DEX' 

5B27 

14 


FCB 

*14 

5B28 

43 


FCC 

'CLV' 

5B2B 

12 


FCB 

*12 

5B2C 

53 


FCC 

'SEV' 

5B2F 

12 


FCB 

*12 

5B30 

43 


FCC 

'CLC' 

5B33 

12 


FCB 

*12 

5B34 

53 


FCC 

'SEC' 

5B37 

12 


FCB 

*12 

5B38 

43 


FCC 

'CLI' 

5B3B 

12 


FCB 

*12 

5B3C 

53 


FCC 

'SEI' 

5B3F 

12 


FCB 

*12 

5B40 

53 


FCC 

'SBA' 

5B43 

12 


FCB 

*12 

5B44 

43 


FCC 

'CBA' 

5B47 

12 


FCB 

*12 

5B48 

2A 


FCC 

' *fc ' 

5B4B 

00 


FCB 

00 

5B4C 

2A 


FCC 


5B4F 

00 


FCB 

00 

5B50 

2A 


FCC 

* ' 

5B53 

00 


FCB 

00 

5B54 

2A 


FCC 


5B57 

00 


FCB 

00 

5B58 

54 


FCC 

'TAB' 

5B5B 

12 


FCB 

*12 

5B5C 

54 


FCC 

'TBA' 

5B5F 

12 


FCB 

*12 

5B60 

2A 


FCC 

'stole* ' 

5B63 

00 


FCB 

00 

5B64 

44 


FCC 

'DAA' 
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5B67 

12 

FCB 

$12 

5B68 

2A 

FCC 

' .♦Hof: ' 

5B6B 

00 

FCB 

00 

5B6C 

41 

FCC 

'ABA' 

5B6F 

12 

FCB 

$12 

5B70 

£A 

FCC 

x >+< >f: * ' 

5B73 

00 

FCB 

00 

5B74 

£A 

FCC 

' *** ' 

5B77 

00 

FCB 

00 

5B78 

2A 

FCC 

' sf: >f: sfc * 

5B7B 

00 

FCB 

00 

5B7C 

2A 

FCC 

f *** * 

5B7F 

00 

FCB 

00 

5B80 

42 

FCC 

'BRA' 

5B83 

24 

FCB 

$24 

5B84 

2A 

FCC 

' ♦♦♦ ' 

5B87 

00 
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$50 

5F0E 

50 

FCB 

$50 

5F0F 

50 

FCB 

$50 

5F10 

50 

FCB 

$50 

5F11 

50 

• FCB 

$50 

5F12 

00 

FCB 

$00 

5F13 

00 

FCB 

$00 

5F14 

00 

FCB 

$00 

5F15 

00 

FCB 

$00 
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5F16 

50 

FCB 

$50 

5F17 

50 

FCB 

$50 

5F18 

00 

FCB 

$00 

5F19 

50 

FCB 

$50 

5F1R 

00 

FCB 

$00 

5F1B 

50 

FCB 

$50 

5F1C 

00 

FCB 

$00 

5F1D 

00 

FCB 

$00 

5F1E 

00 

FCB 

$00 

5F1F 

00 

FCB 

$00 

5F20 

63 

FCB 

$63 

5F21 

00 

FCB 

$00 

5F22 

63 

FCB 

$63 

5F23 

63 

FCB 

$63 

5F24 

63 

FCB 

$63 

5F25 

63 

FCB 

$63 

5F26 

63 

FCB 

$63 

5F27 

63 

FCB 

$63 

5F28 

63 

FCB 

$63 

5F29 

63 

FCB 

$63 

5F2R 

63 

FCB 

$63 

5F2B 

63 

FCB 

$63 

5F2C 

63 

FCB 

$63 

5F2D 

63 

FCB 

$63 

5F2E 

63 

FCB 

$63 

5F2F 

63 

FCB 

$63 

5F30 

50 

FCB 

$50 

5F31 

50 

FCB 

$50 

5F32 

51 

FCB 

$51 

5F33 

52 

FCB 

$52 

5F34 

50 

FCB 

$50 

5F35 

50 

FCB 

$50 

5F36 

D1 

FCB 

$D1 

5F37 

D£ 

FCB 

$D2 

5F38 

00 

FCB 

$00 

5F39 

57 

FCB 

$57 

5F3R 

00 

FCB 

$00 

5F3B 

58 

FCB 

$58 

5F3C 

00 

FCB 

$00 

5F3D 

00 

FCB 

$00 

5F3E 

5R 

FCB 

$5fl 

5F3F 

59 

FCB 

$59 

5F40 

51 

FCB 

$51 

5F41 

00 

FCB 

$00 

5F42 

00 

FCB 

$00 

5F43 

51 

FCB 

$51 

5F44 

51 

FCB 

$51 

5F45 

00 

FCB 

$00 

5F46 

51 

FCB 

$51 

5F47 

51 

FCB 

$51 

5F48 

51 

FCB 

$51 

5F49 

51 

FCB 

$51 

5F4R 

51 

FCB 

$51 

5F4B 

00 

FCB 

$00 
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$20 


$30 


$40 
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5F4C 

51 

FCB 

$51 

5F4D 

51 

FCB 

$51 

5F4E 

00 

FCB 

$00 

5F4F 

51 

FCB 

$51 

5F50 

52 

FCB 

$52 

5F51 

00 

FCB 

$00 

5F52 

00 

FCB 

$00 

5F53 

52 

FCB 

$52 

5F54 

52 

FCB 

$52 

5F55 

00 

FCB 

$00 

5F56 

52 

FCB 

$52 

5F57 

52 

FCB 

$52 

5F58 

52 

FCB 

$52 

5F59 

52 

FCB 

$52 

5F5A 

52 

FCB 

$52 

5F5B 

00 

FCB 

$00 

5F5C 

52 

FCB 

$52 

5F5D 

52 

FCB 

$52 

5F5E 

00 

FCB 

$00 

5F5F 

52 

FCB 

$52 

5F60 

B0 

FCB 

$B0 

5F61 

00 

FCB 

$00 

5F62 

00 

FCB 

$00 

5F63 

B0 

FCB 

$B0 

5F64 

B0 

FCB 

$B0 

5F65 

00 

FCB 

$00 

5F66 

B0 

FCB 

$B0 

5F67 

B0 

FCB 

$B0 

5F68 

B0 

FCB 

$B0 

5F69 

B0 

FCB 

$B0 

5F6A 

B0 

FCB 

$B0 

5F6B 

00 

FCB 

$00 

5F6C 

B0 

FCB 

$B0 

5F6D 

30 

FCB 

$30 

5F6E 

35 

FCB 

$35 

5F6F 

B0 

FCB 

$B0 

5F70 

C0 

FCB 

$C0 

5F71 

00 

FCB 

$00 

5F72 

00 

FCB 

$00 

5F73 

C0 

FCB 

$C0 

5F74 

C0 

FCB 

$C0 

5F75 

00 

FCB 

$00 

5F76 

C0 

FCB 

$C0 

5F77 

C0 

FCB 

$C0 

5F78 

C0 

FCB 

$C0 

5F79 

C0 

FCB 

$C0 

5F7A 

C0 

FCB 

$C0 

5F7B 

00 

FCB 

$00 

5F7C 

C0 

FCB 

$C0 

5F7D 

40 

FCB 

$40 

5F7E 

45 

FCB 

$45 

5F7F 

C0 

FCB 

$C0 

5F80 

11 

FCB 

$11 

5F81 

11 

FCB 

$11 


$50 


$60 


$70 


$80 






TSC DEBUG PACKAGE 


5F82 

11 

5F83 

00 

5F84 

11 

5F85 

11 

5F86 

11 

5F87 

00 

5F88 

11 

5F89 

11 

5F8A 

11 

5F8B 

11 

5F8C 

10 

5F8D 

64 

5F8E 

10 

5F8F 

00 

5F90 

21 

5F91 

21 

5F92 

21 

5F93 

00 

5F94 

21 

5F95 

21 

5F96 

21 

5F97 

A1 

5F98 

21 

5F99 

21 

5F9A 

21 

5F9B 

21 

5F9C 

20 

5F9D 

00 

5F9E 

20 

5F9F 

A0 

5FA0 

31 

5FA1 

31 

5FA2 

31 

5FR3 

00 

5FA4 

31 

5FA5 

31 

5FA6 

31 

5FA7 

B1 

5FA8 

31 

5FA9 

31 

5FAA 

31 

5FAB 

31 

5FAC 

30 

5FAD 

36 

5FAE 

30 

5FAF 

B0 

5FB0 

41 

5FB1 

41 

5FB2 

41 

5FB3 

00 

5FB4 

41 

5FB5 

41 

5FB6 

41 

5FB7 

Cl 


FCB $11 

FCB $00 

FCB $11 

FCB $11 

FCB $11 

FCB $00 

FCB $11 

FCB $11 

FCB $11 

FCB $11 

FCB $10 

FCB $64 

FCB $10 

FCB $00 

FCB $21 $90 

FCB $21 

FCB $21 

FCB $00 

FCB $21 

FCB $21 

FCB $21 

FCB $A1 

FCB $21 

FCB $21 

FCB $21 

FCB $21 

FCB $20 

FCB $00 

FCB $20 

FCB $A0 

FCB $31 $A0 

FCB $31 

FCB $31 

FCB $00 

FCB $31 

FCB $31 

FCB $31 

FCB $B1 

FCB $31 

FCB $31 

FCB $31 

FCB $31 

FCB $30 

FCB $36 

FCB $30 

FCB $B0 

FCB $41 $B0 

FCB $41 

FCB $41 

FCB $00 

FCB $41 

FCB $41 

FCB $41 

FCB $C1 
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5FB8 

41 

FCB 

$41 

5FB9 

41 

FCB 

$41 

5FBR 

41 

FCB 

$41 

5FBB 

41 

FCB 

$41 

5FBC 

40 

FCB 

$40 

5FBD 

46 

FCB 

$46 

5FBE 

40 

FCB 

$40 

5FBF 

C0 

FCB 

$C0 

5FC0 

12 

FCB 

$12 

5FC1 

12 

FCB 

$12 

5FC2 

12 

FCB 

$12 

5FC3 

00 

FCB 

$00 

5FC4 

12 

FCB 

$12 

5FC5 

12 

FCB 

$12 

5FC6 

12 

FCB 

$12 

5FC7 

00 

FCB 

$00 

5FC8 

12 

FCB 

$12 

5FC9 

12 

FCB 

$12 

5FCR 

12 

FCB 

$12 

5FCB 

12 

FCB 

$12 

5FCC 

00 

FCB 

$00 

5FCD 

00 

FCB 

$00 

5FCE 

10 

FCB 

$10 

5FCF 

00 

FCB 

$00 

5FD0 

22 

FCB 

$22 

5FD1 

22 

FCB 

$22 

5FD2 

22 

FCB 

$22 

5FD3 

00 

FCB 

$00 

5FD4 

22 

FCB 

$22 

5FD5 

22 

FCB 

$22 

5FD6 

22 

FCB 

$22 

5FD7 

R2 

FCB 

$R2 

5FD8 

22 

FCB 

$22 

5FD9 

22 

FCB 

$22 

5FDR 

22 

FCB 

$22 

5FDB 

22 

FCB 

$22 

5FDC 

00 

FCB 

$00 

5FDD 

00 

FCB 

$00 

5FDE 

20 

FCB 

$20 

5FDF 

R0 

FCB 

$R0 

5FE0 

32 

FCB 

$32 

5FE1 

32 

FCB 

$32 

5FE2 

32 

FCB 

$32 

5FE3 

00 

FCB 

$00 

5FE4 

32 

FCB 

$32 

5FE5 

32 

FCB 

$32 

5FE6 

32 

FCB 

$32 

5FE7 

B2 

FCB 

$B2 

5FE8 

32 

FCB 

$32 

5FE9 

32 

FCB 

$32 

5FER 

32 

FCB 

$32 

5FEB 

32 

FCB 

$32 

5FEC 

00 

FCB 

$00 

5FED 

00 

FCB 

$00 


$C0 


$D0 


$E0 
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5FEE 

30 


FCB 

$30 

5FEF 

B0 


FCB 

$B0 

5FF0 

42 


FCB 

$42 

5FF1 

42 


FCB 

$42 

5FF2 

42 


FCB 

$42 

5FF3 

00 


FCB 

$00 

5FF4 

42 


FCB 

$42 

5FF5 

42 


FCB 

$42 

5FF6 

42 


FCB 

$42 

5FF? 

C2 


FCB 

$C2 

5FF8 

42 


FCB 

$42 

5FF9 

42 


FCB 

$42 

5FFR 

42 


FCB 

$42 

5FFB 

42 


FCB 

$42 

5FFC 

00 


FCB 

$00 

5FFD 

00 


FCB 

$00 

5FFE 

40 


FCB 

$40 

5FFF 

C0 


FCB 

$C0 

3C00 



ORG 

$3C00 



* BREAKPOINT 

TABLE 

3C00 


BPTRB 

RUB 

256 

3D00 


STRTPC 

RUB 

512 

3F00 


ENDPC 

EQU 

* 

3F00 


SMTRB 

RUB 

32 

3F20 


EXTRB 

RfIB 

32 

3F40 


WPTfiB 

RMB 

32 

3F60 


MTRB 

RMB 

32 

3F80 


MSGTB 

RMB 

32 

3FR0 


USER 

EQU 

* 


END COLDS 


$F0 


NO ERROR<S> DETECTED 
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SVMBOL TABLE' 


ACIA 

410F 

ADDBX 

442D 

ADDBX2 

443B 

AR 

408D 

ASML 

538A 

ASML3 

53C1 

ASML35 

53CB 

ASML4 

53CE 

ASML5 

53F1 

ASML6 

53F5 

ASML63 

5482 

ASML65 

5404 

ASML7 

5407 

ASML75 

541D 

ASML77 

5423 

ASML8 

5428 

AST 

5944 

AUXTAB 

5F00 

BELL 

0007 

BEXP 

50F1 

BEXP2 

5122 

BEXP3 

5125 

BEXP4 

513E 

B0UN35 

4DBB 

B0UND2 

4DR0 

B0UND3 

4DB8 

B0UND4 

4DBF 

B0UND5 

4DC3 

B0UND6 

4DC7 

B0UND7 

4DC9 

BOUNDS 

4DCE 

BOUNDM 

4E04 

BOUNDS 

4D85 

BOUNDW 

4DF4 

BOUNDX 

4DE4 

BOUNS 

4DD4 

BOVST 

5AC3 

BPAD 

40B2 

BPCODE 

40B0 

BPEND 

40AE 

BPPOS 

40AC 

BPTAB 

3C00 

BR 

408E 

BRK 

4FB7 

BRK2 

4FCA 

BRK25 

4FE0 

BRK3 

4FE6 

BRK4 

4FE9 

BRK42 

5002 

BRK45 

500E 

BRK5 

5011 

BRK55 

5013 

BRK58 

5044 

BRK6 

504B 

BRK7 

5061 

BRK72 

5071 

BSE 

4113 

BSP 

4111 

BST 

5948 

BTVP 

40B1 

BUFPNT 

4050 

BXOP 

40DA 

BX0P2 

40DD 

CALC 

52BE 

CRLC5 

52E6 

CALC6 

52FE 

CALC7 

5304 

CALC8 

530A 

CALC9 

5322 

CC 

408C 

CCST 

5941 

CER 

4B9D 

CEA2 

4BD3 

CEA3 

4BD9 

CEA4 

4BDC 

CEA5 

4BE2 

CEA6 

4BE4 

CFLG 

40A4 

CHECK 

4B77 

CHECKS 

4B88 

CHECK3 

4B92 

CHECK4 

4B94 

CHECK5 

4B9R 

CHECK6 

4B9C 

CHKSP 

56C3 

CHKSP1 

56CD 

CHKSP2 

56E5 

CHK3P3 

56EB 

CHKSP4 

56FC 

CLASS 

4342 

CLASS2 

435A 

CLASS4 

435F 

CLB 

522D 

CLB2 

5230 

CLB4 

5246 

CLCP 

5938 

CLH 

5249 

CLH2 

524C 

CLM 

57R0 

CLP 

54D5 

CLP1 

54DD 

CLP2 

54E0 

CLP4 

54F8 

CLP5 

5500 

CLP6 

5508 

CLP7 

5510 

CLP8 

5516 

CLRPR 

417C 

CM0D35 

4D7F 

CMODE 

4D72 

CM0DE3 

4D7C 

CM0DE4 

4D82 

CNTR 

4067 

CNUM 

5324 

CNUM2 

5335 

CNUM4 

5338 

CNUM6 

5339 

COLD 

411B 

C0LD2 

4121 

COLDS 

4100 

COMTBL 

57A8 

CONTBL 

58E3 

COUNT 

4075 

CR 

000D 

CRLFST 

5999 

CRSAVE 

4052 

CSIM 

525E 

CSIM2 

5261 

CSIM4 

5274 

CSIM6 

5277 

CTST 

59B4 

DATPNT 

4056 

DCMP 

51FE 

DCMP2 

5204 

DEL 

4112 

DELAV 

408B 

DELST 

5996 

DEPTH 

56FD 

DIS 

4E8E 

DIS2 

4E9F 

DIS4 

4EB7 

DIS6 

4EC0 

DISO 

4A43 

DISOl 

4A4B 

DIS02 

4A59 

DIS03 

4A79 

DIS035 

4A7B 

DIS04 

4A80 

DIS045 

4R83 

DIS047 

4A94 

DIS05 

4AB1 

DIS055 

4AB5 

DIS06 

4RD3 

DIS067 

4AFA 

DIS07 

4B04 

DIS08 

4B0A 

DOASM 

535F 

D0ASM2 

5367 

D0RSM4 

5384 

D0RSM6 

5387 

DOCMND 

AD4B 

DODOS 

5589 

DOHB 

5083 

DOHB1 

5088 

D0HB2 

508B 

DOIO 

4571 

DOIOI 

454F 

DOIOO 

455E 

D0I002 

456B 

DOJB 

50C5 

DOMB 

508E 

DOMB1 

5099 

D0MB2 

50R9 

D0MB4 

50BB 

DOMON 

4589 

DOSBUF 

AC14 

DREG 

48BC 

DSHST 

5AE4 

DUMP 

551F 

DUMP1 

5524 

DUMP2 

552F 

DUMP25 

5540 

DIJMP27 

5551 

DUMP28 

555B 

DUMPS 

556D 

DUMP6 

5586 

EADR 

40D0 

EAFL 

40A2 

END 

4073 

ENDPC 

3F00 

EQUALS 

40B9 

EQVAL 

4C2A 

EQVRL2 

4C34 

ESC 

4114 

EXEC 

4195 

EXEC3 

41AF 

EXEC6 

41C2 

EXEND 

40C8 

EXIT 

4547 

EXPST 

59FD 

EXTAB 

3F20 

FILL 

5620 

FILL2 

562C 

FIND 

55A3 

FINDS 

55BC 

FIND3 

55C8 

FIND4 

55DC 

FIND5 

55DF 

FIND6 

55E2 

FIND7 

5611 

FIND8 

561D 

FIRST 

4063 

FLAG 

5708 

FLAGS 

5719 

FLAGA 

409E 

FLAGB 

40A0 

FMSCLS 

B403 

FMST 

5960 

FNDM42 

547D 

FNDM45 

5482 

FNDMN 

5436 

FNDMN1 

543C 

FNDMN2 

5456 

FNDMN4 

5462 

FNDMN5 

5487 

FNDMN6 

549C 

FNDMN7 

54R7 

FNDOP 

4885 

FND0P2 

48B5 

FND0P3 

48B6 

FMD0P4 

48B7 

FND0P5 

48B8 

FND0P6 

48BB 

FNDRE1 

4F98 

FNDRE2 

4F9F 

FNDRE4 

4FAE 

FNDRE6 

4FB5 

FNDREG 

4F8C 

FNDTP 

516C 

FNDTP2 

516F 

FNDTP4 

517B 

FNDTP6 

517D 

FUNTAB 

58EB 

GETCHR 

4106 

GETHE2 

43BC 

GETHE6 

43C9 

GETHE8 

43CF 

GETHEX 

43B5 

GETRN2 

4CF8 

GETRNG 

4CDD 

GO 

443F 

HEQVAL 

4C37 

HIST 

517F 

HIST2 

5181 

HIST6 

5194 
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HIST7 

5197 

HMONS 

5RCC 

ILIN 

ILOPST 

59C3 

ILOPTR 

487F 

INBU65 

INBUF3 

4257 

INBUF4 

425C 

INBUF5 

INDEC 

43EE 

INDEC2 

43F5 

INDEX 

INST 

4C41 

INST2 

4C51 

INV 

IRQV 

4117 

ITRRP 

54C3 

ITRRP2 

ITRST 

59D6 

IXST 

5993 

JUMP 

LF 

000R 

LINBUF 

4000 

LKBP 

LKBP6 

4468 

LKNR41 

41F8 

LKNR42 

LKNAM 

41D3 

LKNRM2 

41D6 

LKNRM3 

LKNRM6 

421B 

LKNRM7 

421C 

LKNRM8 

MACH 

5729 

MRCH2 

5758 

MRCH4 

MRXC 

4077 

MRXSP 

4081 

MEND 

MOD 

406F 

MODE 

409B 

MONV 

MSGTB 

3F80 

MSPST 

5R38 

MTRB 

NESTC 

4099 

NMIC 

4079 

NMIC2 

NORTS 

5RR6 

NST 

5958 

NSTER 

NSTST 

5R7D 

NXTBP 

40B4 

NXTCH 

NXTCH4 

4379 

NXTMSG 

40B6 

NXTPC 

NXTRB4 

51EB 

OHRLT 

446B 

OLDPC 

0P2LNG 

46C2 

0P3LNG 

46C9 

OPCNT 

OPND 

4070 

OPPNT 

40C2 

0PPNT2 

OUTRDR 

4326 

0UTDE2 

42DB 

0UTDE4 

0UTDI4 

4300 

0UTDI5 

4309 

0UTDI6 

OUTHEX 

4329 

OUTHL 

4331 

OUTHR 

OUTSP 

494F 

OUTST 

598D 

OUTV 

PAST 

4C8C 

PRST2 

4CR2 

PRST25 

PRST5 

4CCF 

PRST6 

4CDR 

PRUSF 

PBP3 

5219 

PBP4 

5221 

PBP6 

PBRR 

473F 

PBRR4 

4757 

PBSR 

PC 

4093 

PCRLF 

4294 

PCRLF2 

PDRTR2 

4293 

PERR 

4RR9 

PIRQ 

PIRQ4 

4834 

PJMP 

478R 

PJMPX 

PNMI 

483R 

PNMI2 

4842 

POINT 

P0NS2 

4806 

POPTRB 

40D2 

PRB45 

PRB475 

49B7 

PRB48 

49C3 

PRB49 

PRB57 

49DF 

PRB62 

49FD 

PRB65 

PRBP 

4954 

PRBP1 

496R 

PRBP2 

PRBP5 

49D7 

PRBP6 

49EE 

PRBP7 

PRCH2 

4B2R 

PRCH3 

4B34 

PRCH4 

PRON 

409C 

PRONF 

5794 

PR0NF2 

PR0T3 

4D10 

PR0T35 

4D13 

PR0T4 

PR0T7 

4D4D 

PR0T8 

4D57 

PRRE22 

PRREG2 

48D1 

PRREG3 

4936 

PRREG4 

PRTB2 

4E2F 

PRTI 

4851 

PRTSTR 

PSTRT4 

528R 

PSTK 

533B 

PSTK0 

PSTRNG 

4285 

PSUBC 

4765 

PSUBC2 

PSWI2 

4819 

PSUII4 

481C 

PUTCHR 

RELRDR 

40BR 

RGT 

5907 

RGTRB 

RMVBP2 

515E 

RMVBP4 

516B 

RT 

RTRD 

406R 

RTRDS 

5R9C 

RTB 

RTB6 

56C0 

RTBF 

4069 

RTDRT 

RTRN2 

4E83 

RTRN4 

4E8B 

SDELV 

SET2 

4F4D 

SET4 

4F64 

SET5 
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41C6 

ILIN2 

41C9 

ILIN4 

41CC 

4280 

INBUF 

423C 

INBUF2 

4242 

4264 

INBUF6 

426B 

INCOD 

40B8 

4054 

INPST 

5988 

INRNG 

51EE 

4107 

IRQC 

407D 

IRQC2 

407F 

54CF 

ITRRP4 

54D2 

ITRF 

40RB 

4446 

LAST 

4065 

LASTJ 

40BE 

444D 

LKBP3 

4450 

LKBP4 

445E 

4208 

LKNA45 

4210 

LKNR95 

422F 

41D9 

LKNRM4 

41E6 

LKNAM5 

4215 

422R 

LKNAM9 

422B 

LSTTRM 

4068 

575B 

MACH6 

5792 

MARKRG 

40BC 

40CC 

MMP1ST 

5A15 

MMP2ST 

5A26 

410D 

MPR 

4B6E 

MPST 

5A61 

3F60 

NERST 

5A89 

NEST 

4C53 

407B 

NMIV 

4119 

NOBKF 

40R3 

4E56 

NSTER2 

4E59 

NSTRP 

40R5 

4361 

NXTCH2 

4364 

NXTCH3 

4367 

40C0 

NXTRB 

51CE 

NXTRB2 

51D6 

4097 

OP 

40D4 

OP1LNG 

46D5 

409R 

OPHST 

5RD8 

OPJMP 

40D7 

40C4 

OPTAB 

5B00 

0UT2SP 

494D 

42E7 

OUTDEC 

42D5 

0UTDI2 

42F6 

431F 

0UTDI8 

4324 

OUTDIG 

42F3 

4335 

0UTHR2 

433F 

OUTNUM 

405A 

410R 

PADR 

4AA4 

PRDR2 

4AA7 

4CR5 

PAST3 

4CAD 

PAST4 

4CB4 

408R 

PBP 

5205 

PBP2 

5208 

522R 

PBPAD 

51B6 

PBPRT 

4E32 

4730 

PBXX 

4758 

PBVTE 

4AAC 

42RD 

PCST 

5954 

PDRTA1 

4287 

481D 

PIRQ1 

482D 

PIRQ2 

482F 

47R0 

PJSR 

477D 

PJSRX 

479E 

405F 

P0INT2 

4061 

PONS 

47D4 

499E 

PRB46 

49A7 

PRB47 

49B2 

49C7 

PRB495 

49D0 

PRB55 

49DA 

4R07 

PRB68 

4A17 

PRB75 

4A34 

4976 

PRBP3 

4987 

PRBP4 

498A 

4R24 

PRBP9 

4A39 

PRCH 

4B12 

4B40 

PRCH5 

4B62 

PRMPT 

5935 

579B 

PROT 

4CF9 

PR0T2 

4CFB 

4D22 

PR0T5 

4D31 

PR0T6 

4D40 

490D 

PRRE25 

4910 

PRREG 

48C7 

4946 

PRTB 

4E12 

PRTB1 

4E15 

5R71 

PRVW 

4394 

PSTAT 

527A 

5347 

PSTK1 

534A 

PSTK2 

534E 

477C 

PSUBR 

47B0 

PSWI 

4810 

4109 

PWAI 

4849 

PWAI2 

484B 

58F9 

RMVBP 

514D 

RMVBP1 

5152 

5636 

RT2 

5642 

RT4 

5684 

5687 

RTB2 

56A8 

RTB4 

56BD 

406C 

RTRN 

4E5C 

RTRN1 

4E80 

528C 

SEIM 

4807 

SET 

4F48 

4F81 

SET6 

4F89 

SETCN 

50D9 
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SETCN2 50E9 
SIMCNT 4087 
SIMU61 4504 
SIMU69 452C 
SIMUL3 449E 
SIND 5297 
SKPSP4 438D 
SNMI 52B3 
SSM1 4BFC 
SSTOP 4ECD 
STPCNT 4085 
STST 599F 
SVNST 59F0 
TEMPI 405C 
TRCHK1 45F9 
TRCHK7 4641 
TRC015 46AC 
TRCOL2 46B2 
TRCSP1 466D 
TSTEQ 4C5D 
TSTHEX 43D4 
VALUE 405D 
WAITR2 42D2 
WPEND 40CA 
WRKHX4 43A3 
XMEM2 4EEA 
XMEM4 4F3A 
XMNMI 597B 
XPST 5A59 


SETCN4 

50EE 

SIMU15 

4488 

SIMU62 

4507 

SIMUL 

4471 

SIMUL4 

44C8 

SIND2 

52A3 

SKPSPC 

437E 

SP 

4091 

SSM15 

4C02 

SST0P2 

4EDC 

STPST 

59A9 

STXFR 

4E40 

TABE 

40CE 

TRAIL 

4C7E 

TRCHK2 

45FC 

TRCOll 

45D4 

TRC045 

46F9 

TRC0L3 

46D4 

TRCSP2 

4673 

TSTHE1 

43DA 

TSTON 

4C69 

VFLG 

40R1 

WARM 

4195 

WPRST 

5A53 

XFRST 

5AB6 

XMEM3 

4EED 

XMEM5 

4F3D 

XMT 

5967 

XR 

408F 


SETFL 

519A 

SIMU35 

44B8 

SIMU65 

450D 

SIMIJL0 

4476 

SIMUL5 

44EC 

SINDEC 

571C 

SMEND 

40C6 

SPC 

0020 

SSM2 

4C27 

STACK 

3FFF 

STRAC 

4EC2 

STXFR2 

4E4A 

TBLOV 

5A44 

TRC125 

4676 

TRCHK4 

45FF 

TRC012 

4657 

TRC047 

46FE 

TRC0L4 

46F2 

TRNEST 

4E3B 

TSTHE2 

43E6 

TSTTRM 

4C63 

WAITF 

4089 

WARMS 

410C 

WPST 

5A09 

XFRT 

40A6 

XMEM35 

4EF3 

XMIRQ 

5975 

XMXT 

5970 

XSAVE 

4058 


SETFL2 51AF 
SIMU45 44D6 
SIMU67 4524 
SIMUL1 4479 
SIMUL6 44FF 
SIRQ 52A8 
SMPST 5A68 
SPST 5950 
SSM3 4C17 
STATES 40A7 
STRIT 4D6B 
SWIV 4115 
TCSIM 5257 
TRCF 409D 
TRCHK5 4607 
TRC013 468D 
TRCOL 458E 
TRC0L5 4702 
TRST 59E1 
TSTHE3 43EA 
TVPTB 5924 
WRITR 42B6 
MARMST 4103 
WPTRB 3F40 
XFRTRP 4E51 
XMEM37 4F19 
XMIT 596B 
XOFST 5984 
XST 594C 


SETV 

4D5D 

SIMU48 

44E2 

SIMU68 

4529 

SIMUL2 

4490 

SIMUL7 

453E 

SKPSP2 

4384 

SMTAB 

3F00 

SSM 

4BE6 

SSP 

4095 

STOP 

454A 

STRTPC 

3D00 

SVNER 

41CE 

TEMP 

405B 

TRCHK 

45E7 

TRCHK6 

4615 

TRC014 

469E 

TRCOL1 

45CC 

TRCRET 

471A 

TSP 

4083 

TSTHE4 

43EC 

USER 

3FR0 

WAITR1 

42BC 

WHATST 

593B 

WRKHX 

43A0 

XMEM 

4EDE 

XMEM38 

4F2A 

XMM 

5964 

XONST 

5981 

XVST 

595C 







